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I-    INTRODUCTION 


Current  economic  trends  have  brought  about  an  increased 
awareness  of  the  need  for  productivity  gains  in  the  work- 
place. Like  all  facets  of  business,  government  is  finding 
increased  pressures  tc  reduce  expenditures  and  still  prcvide 
service  to  the  people.  To  meet  the  challenges  of  reducing 
costs  and  maintaining  service  levels,  government  managers 
are  looking  toward  office  automation  and  computerization  to 
increase  individual  productivity.  The  Navy  Fleet  Material 
Support  Cffice  (FMSC),  like  most  Government  Agencies,  is 
doing   its    part    to  improve   productivity. 

The  Defective  Material  Section  of  FMSO  (Code  91423)  is 
designated  as  the  overall  monitor  for  the  quality  deficiency 
management  information  reporting  system.  A  Thesis  entitled 
&  System  Analysis  and  Design  For  Updating  the  Internal 
Tracking  of  the  Quality  De  ficiency  Reporting  System  at  the 
Navy ' s  Fleet  Material  Support  Office  by  Michael  D.  Carriger 
recommended  the  development  of  a  prototype  network  of  inex- 
pensive microcomputers  and  the  creation  of  a  Central 
Database  System.  This  prototype  system  will  demonstrate  the 
feasibility  of  automating  the  QDR  Processing  Procedures,  and 
will  allow  the  evaluation  of  processing  with  automated  tech- 
niques. Additionally,  the  prototype  will  provide  the  basic 
design  for  future  C.DR  Systems  and  its  interaction  with 
users.      [Ref.    1  ] 

Current  microcomputer  technology  has  allowed  very 
powerful  systems  to  be  created  at  relatively  low  costs. 
Microprocessors  with  over  512,000  characters  of  memory  can 
process   over     500,000  instructions      per    second.  Secondary 

storage  units  can  access  over  35  million  characters  of  data 
at      the  rate     of      5    Billion      bits      per   second.  Relational 


Eatatase  systems  allcw  micr cccirputers  to  create,  update,  and 
manage  large  databases  of  information  at  relatively  low 
costs. 

The  purpose  of  this  Thesis  is  to  develop  a  Prototype 
Database  Management  Information  System  for  use  at  the 
Defective      Material    Section      of      FMSO       (Code   9142  3).  This 

system  will  utilize  current  microcomputer  technology  and 
off-the-shelf  hardware  and  software.  Application  programs 
will  be  generated  with  a  high  level  database  manipulation 
language.  For  this  application,  dBASE  II  (by  Ashton-Tate) , 
IBM-FC  microcomputers,  PCnet  (ty  Orchid  Technology) ,  and  20 
MB  hard  disk  storage  devices  (by  Tallgrass  Technology)  are 
utilized  to  create  the  Management  Information  System.  This 
hardware  and  software  was  selected  because:  1)  it  had 
already  been  evaluated  and  was  in  use  at  other  sections  of 
PMSO;  2)  it  appeared  that  it  could  meet  ths  processing 
requirements  for      the   QDR  System;  3)       it   could      be    easily 

obtained  with  minimal  cost  to  the  project;  and  4)  it  could 
fce  incorporated  intc  both  the  short  term  and  lcng  term 
processing    goals   for   PMSO  [  Bef .    1  ]. 

The  major  areas  of  concern  for  the  project  center 
around:  1)  contention  caused  by  multiple  users  accessing  the 
same  Data  Ease  Files  over  a  microcomputer  network;  2) 
Security  logon  protection  for  the  system;  3)  Flexibility  to 
respond  to  ad  hoc  information  requests;  and  4)  providing 
meaningful   system   dialog   for   untrained   computer   users. 
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II,    METHODOLOGY 

The  development  of  the  Quality  Deficiency  Reporting 
(QDR)  System  was  based  on  modern  software  engineering  and 
design  principles.  Eata  flow  diagrams,  structure  charts, 
and  a  high  level  programming  language  aided  in  the  creation 
of  the  system-  Using  top-down  design  to  provide  a  logical 
basis  for  development,  the  software  creation  involved:  1) 
studying  and  understanding  the  QDR  process,  2)  identifying 
at  least  one  method  cf  solving  the  problem,  3)  creating  data 
flow  diagrams  tc  shew  the  gross  data  transformations,  4) 
using  the  data  flow  diagrams  to  construct  a  structure  chart, 
and  5)  describing  each  abstraction  used  in  the  solution  in  a 
manner  that  lends  itself  to  eventual  coding  in  a  high  level 
language.      [Ref.    2] 

The  initial  study  of  the  QDR  System  was  based  on  Michael 
D.  Carriger's  thesis  work.  This  provided  much  of  the  tack- 
ground  information  that  was  necessary  to  formulate  a 
possible  solution.  Eased  on  the  operational  environment  and 
the  users*  level  of  computer  familiarity,  it  was  decided 
that  a  menu  driven  system  be  created.  This  would  provide  an 
easy  to  understand  interface  for  the  unfamiliar  user.  Data 
flow  diagrams  were  generated  to  identify  the  transformation 
of  data  frcm  input  to  output.  This  provided  a  pictorial 
representation  of  the  data  used  by  the  QDR  System  and  estab- 
lished a  means  of  identifying  the  changes  that  tcok  place 
during   the    life    cf   a    QDR  Case    (See   figure    2.1    and    2.2). 

The  data  flow  diagrams  provided  the  basis  for  creating 
the  system's  hierarchical  structure.  By  reviewing  the  basic 
transformations  performed  by  the  system,  it  became  apparent 
that  there  are  three  main  activities  necessary  for  main- 
taining    the     Central     Database.  These      basic      activities 
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prompted   the   creation   cf   the      Open    Case,       Update,       and    Close 
Case    modules.  .       All    ether   functions      associated    with    the    CDR 
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System  are  support  modules  for  presenting  the  Database 
information  to  the  end  user,  maintaining  support  Database 
Piles,  and  generating  management  information  (See  figures 
2.3    and    2.4) . 

The  QDF  System  was  implemented  using  the  command 
language  for  dBASE  II,  a  Relational  Database  Product.  This 
command  language  is  a  high  level  language  that  supports 
block      structured      development.  It        is      an      interpretive 

language  that  must  be  re-evaluated  through  each  pass  of  the 
program  execution.  To  ensure  program  clarity,  the  programs 
utilized  meaningful  names  to  identify  variables  and  make  the 
flow  of  informaticn  more  apparent  to  the  reader. 
Information  hiding  was  utilized  to  reduce  the  amount  of 
unnecessary  informaticn  handled  by  each  program.  Rsguired 
information  is  passed  between  programs  as  the  data  is  needed 
for  processing  (See  Appendix  A  for  a  complete  listing  of 
Passed   Variables).  Information   hiding      also   conceals      the 

processing    algorithms      used    within   a    program.  When   inter- 

facing programs,  tie  programmer  only  needs  to  knew  what 
information  passes  between  programs  and  not  hew  the  informa- 
tion is  treated  internally.  The  use  of  information  hiding 
technigues  reduces  the  complexity  of  systems  development  by 
allowing  the  programs  to  be  developed  independently  based  on 
interfacing   requirements  only.  [Ref.    3]   Another   mechanism 

to  simplify  the  programs  is  to  include  comment  lines  to  make 
them  more  readable  and  understandable  to  maintenance 
personnel. 

As  each  program  was  created,  it  was  tested  to  ensure 
that  it  accurately  performed  the  function  for  which  it  was 
designed  and  did  not  contain  errors.  As  individual  programs 
were  tested,  they  were  combined  with  other  tested  units  to 
ensure  compatibility  between  the  various  system  segments. 
This  integration  testing  was  performed  to  ensure  that  the 
individual      programs        worked      in      conjunction        with      ether 
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programs  and  modules.  As  errors  were  detected  in  programs 
and  modules,  these  bugs  were  corrected  and  then  revesting 
was  performed  for  both  individual  and  integration  tests. 
All  of  the  initial  tests  were  performed  in  a  single  user 
environment  to  reduce  some  of  the  system  complexity.  Once  a 
program  or  module  had  completed  both  individual  and  integra- 
tion testing,  these  units  were  then  tested  in  the  mul-i-user 
environment.  Other  aspects  of  the  software  development  are 
discussed   in  more   depth    later. 
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III.    SYSTEM    DEVELOPMENT 

The  development  of  the  QDR  System  considered  many 
aspects  cf  computer  utilization.  The  system  was  designed  as 
an  integrated  package  of  hardware  and  software  that  was  to 
he   utilized  as      a   management   information   tool.  To   produce 

the  desired  results,  both  hardware  selection  and  software 
development  requirements  were  made  considering  the  utiliza- 
tion of  the  system  and  the  target  group  of  system  operators. 
Such  things  as  user  interface,  the  multi-usar  environment, 
security,  system  cost,  and  the  availablity  of  system  compo- 
nents were  integrated  in  the  methodology  of  developing  the 
QDR    System. 

A.       SOFTWARE 

The  original  QDR  software  design  centered  around  a  data 
base  consisting  of  8,000  -  10,000  records  in  the  Open  File 
and    16,000      -    20,000    records   in      the   Closed   File.  Each   of 

these  records  contained  thirty  data  fields  and  required  275 
characters      of    data.  Headquarters      level      changes   to      QDR 

processing  procedures  expanded  the  scope  of  the  data  files 
considerably.  New    data      requirements      in      support    cf      the 

Product  Deficiency  Reporting  System  and  Evaluation  Program 
(PDREP)  increased  the  files  to  fifty  four  data  elements 
requiring  ever  600  characters  of  data  per  QDR  Case.  (See 
Appendix  B  for  a  conplete  list  of  Database  structures  and 
Appendix  C  for  the  Data  Element  Definitions.)  To  accomodate 
these  additional  data  items,  the  case  records  had  to  be 
split  into  two  parts.  This  was  necessary  because  cf  a 
restriction  in  the  Database  Management  Software  used  for  the 
system.  The  current  DBMS  allowed  a  maximum  of  thirty  two 
data    elements   per   database    file. 


16 


The  sccpe  of  the  changes  mentioned  above  required  a 
total  redesign  of  the  QDR  System.  Up  to  that  point,  a 
substantial  amount  of  design  work  and  actual  programming  and 
testing  had  been  completed.  although  many  of  the  "lessens 
learned"  during  the  initial  design  could  be  applied  tc  the 
redesign,  and  many  cf  the  initial  algorithms  could  be  modi- 
fied and  reused,  the  redevelopment  effort  required  a  signif- 
icant amount  of  time  and  effort.  All  user  interface 
programs  had  to  be  redesigned  and,  in  many  cases,  repro- 
grammed  to  accomodate  the  new  data  elements  and  provide  a 
meaningful  interface.  The  change  in  scope  drastically 
reduced  the  time  available  for  complete  testing,  documenta- 
tion and  implementation  thus  resulting  in  the  prototype 
system  being  more  capable,  but  requiring  additional  effort 
in  the  above  areas. 

Much  of  the  software  development  was  aimed  at  providing 
a  system  that  had  an  easy  to  understand  user  interface, 
could  be  used  in  a  multi-user  environment,  provided  a  degree 
of  security,  and  was  maintainable.  The  following  sections 
discuss  each  of  these  areas  and  provide  some  insight  into 
how  these  were  achieved.  Throughout  this  chapter,  the  terms 
module  and  program  are  used  interchangably . 

1  •   Oser  Interface  With  QDB  System 

The  interface  between  the  user  and  the  QDR  System 
was  a  majcr  point  of  concentration  to  ensure  the  usefulness 
of  the  entire  system.  In  order  to  allow  for  the  lack  of 
experience  cf  the  analysts  with  automated  tools  and  to  avoid 
training  costs  for  newly  assigned  personnel,  the  perception 
that  the  personal  cemputers  were  really  "QDR  Machines"  was 
utilized.  The  entire  dialog  of  a  user  with  the  machine  was 
centered  around  the  functional  aspects  of  the  current 
working  environment.  A  menu  based  system  was  utilized  to 
guide  the  analysts  through  their   case  processing.    At  each 
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point  where  a  choice  cculd  be  made,  the  user  was  presented 
with  an  explicit  message.  If  an  invalid  choice  was  made, 
the  system  would  then  provide  a  message  indicating  an  error, 
and  show  the  valid  range  cf  choices  available  to  the  user  at 
that  particular  point.  If  the  user  was  familiar  with  the 
range  of  valid  inputs  and  did  net  make  an  entry  error,  then 
the  messages  would  net  appear  on  the  screen.  This  allowed 
for  the  more  experienced  user  to  avoid  some  of  the  screen 
prompting.  The  System  was  written  such  that  each  of  the 
user  "QDR  Machines"  would  automatically  initialize  itself 
and  be  in  a  state  waiting  for  the  user  to  logon  (See  figure 
3.1)  . 


I 

I  ENTER    YOUR    USER    I.D. 

xxxx 


Figure  3.1    Logon  Prompt. 

This  isolated  the  user  from  any  of  the  underlying 
machine  operating  system  and  preparatory  steps  that  are 
normally  associated  with  putting  today's  microcomputers  into 
operation.  The  only  function  that  the  computer  was  avail- 
able for  was  the  processing  of  QDR's.  When  an  analysz 
terminated  operations  for  the  day  the  terminal  would  again 
go  into  a  state  ready  for  another  user  to  logon  cr  for  the 
analyst   to    re-enter    the   system. 

The  procedure  for  an  analyst  to  enter  the  QDR  System 
is  demonstrated  by  the  following  selection  of  screen 
displays  and  choices  that  are  available.  The  process  begins 
with  entry  into  the  system  at  the  beginning  of  the  day. 
Each    analyst      has   been      assigned    a    user      I.D.      and      a    unigue 
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password   by  the    system  supervisor.  The   system    has   earlier 

been      brought      up      by  the      supervisor.  The      first      screen 

presented  prompts  for  the  analyst  to  enter  his  unique  access 
identification  (See  figure  3.1).  If  the  access  I.D.  is  not 
on    file,    or   was    entered   incorrectly,      a    message   comes   on   the 


ACCESS    I.D.    NOT    ON    FILE 
PLEASE    REENTER 


Figure    3.2        Invalid   I.D.    Message. 

screen  (See  figure  3.2).  A  check  is  also  made  to  determine 
if  the  user  is  currently  logged  onto  another  terminal  in  the 
system.  If  currently  logged  on,  then  access  is  denied  and 
the    following      message   will      then   be      displayed    (See      figure 


USER    CURRENTLY    LOGGED    ON 
LOGON    TERMINATED 


Figure   3.3        Currently  Logged   Message. 

3.3) .      If   the  correct  Access   I.D.    is   entered    then    the   system 
will    precept   to      enter   the   password.        The      password    requires 


ENIER    PASSWORD    FOLLOWED    BY    <CR> 


Figure   3.4         Login   Prompt. 
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exact  upper/lower  case  entry  (Figure  opn4) .  Three  chances 
are  given  tc  successfully  enter  the  password  and  if  unsuc- 
cessful, the  console  is  locked  out  and  may  only  be  put  back 
into  operation  by  the  system  supervisor.  A  successful  logon 
will  te  followed  by  a  greeting  to  the  QDR  System,  and  the 
user  will  b€  presented  with  the  main  menu  which  contains  all 
of  his  processing  options  (See  figure  3.5). 


r 

|         WELCOME  TO 

T! 

iE  QDR  AUTOMATED  TRACKING  SYSTEM 

1 

1 
2 
3 

4 
5 

6 

7 

-  Open  New  Record 

-  Close  Record 

-  Update  Record 

-  Originate  Letter 

-  Report  Generation 

-  Query 

-  Exit  from  the  System 

Enter  Your  Choice 

i        . 

Figure  3.  5   Main  Menu, 


From  the  main  menu 
option  tc  open  a  new  case, 
case,   originate  a  letter  t 
cf  all  of  his  open  cases  in 
bases  for  information  or  to 

As  an  example  of  th 
QDR   case,   the   following 
presented  to  the  analyst, 
analyst   chcoses   a  "1"   fr 
presented   with  a   screen  w 
required.   This  allows  the 
beginning  the   process  and 
choice  of  "1"  puts  tie  user 
figure  3.6)  . 


(figure  3.5) ,  the  analyst  has  the 
update  an  existing  case,   close  a 
c  an  item  manager,   get  a  listing 
the  QDR  System,   query  the  data- 
leave  the  QDR  System. 
e  process   required  to  open  a  new 
sequence   shows  the   screens  as 
In  order   to  open  a   case,   the 
cm   the   main   menu  and   then  is 
here   verification  of  desire  is 
analyst  to  change  his  mind  before 
to  return   to  the  main   menu.    A 
in  the  case  opening  process  (See 
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*****  OPEN  NEW  CASE  ***** 

THIS  PROGRAM  ENABLES  YOU  TO  OPEN  A 
NEW  QDR  CASE 

1  -  CONTINUE 

2  -  RETURN  TO  MENU 


Figure  3.6   Verification  Message. 

The  input  screens  presented  to  the  user  are  designed 
with  the  source  input  document  Standard  Form  368  (SF  368)  as 
the  basis.  Each  of  the  items  of  information  are  captured 
from  the  numbered  blccks  of  the  SF  368.  Where  information  is 
not  identified  on  the  form,  yet  is  needed  for  the  QDR  case, 
input  is  requested  at  the  location  where  most  often  written 
in  by  the  analyst  or  by  the  originating  office.  The  purpose 
cf  this  was  to  maximize  the  ease  and  fluidity  of  data  entry 
by  the  analyst  by  considering  the  physical  location  cf  the 
data  as  sell  as  the  logical  relationship  cf  the  elements. 

The  first  entry  required  was  the  date  the  case  was 
received  by  FMSO.  A  standard  (MMDDYY)  format  for  dates  was 
utilized  throughout  the  QDR  programs,  based  upon  user  speci- 
fications (See  figure  3.7). 

After  entry  cf  the  national  stock  number,  a  prompt 
to  verify  the  initial  data  is  put  on  the  screen.  This 
enables  the  analyst  to  ensure  that  the  correct  case  will  be 
created  and  will  alleviate  a  later  need  tc  delete  an  invalid 
case  from  the  database  (See  figure  3.8).  A  choice  of  "2" 
allows  the  changing  cf  any  initial  data  item  before  contin- 
uing to  the  second  screen. 
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********  ENTER  EATA  FOR  THE  NEW  CASE  ******** 

********  FROM    SF  368         ******** 

DATE  BECEIVED  EY  FMSO    MMDDYY    • XXXXXX1 
CAT  »X' 

COG  'XX1 

NSN  ' XXX-XX-XXXX-XXXX' 


Figure    3.7        Initial  Entry   Screen. 


_.  ....._ 

VERIFY  ABOVE  INFORMATION 
YOO  MAY  NOT  CHANGE  IT  AFTER  THIS 
WITHOUT  STABTING  OVER  AGAIN 
1  -  CONTINUE   2  -  CHANGE   3  -  EXIT 

i 

_   _    _.  _    _ i 

Figure    3.8        Bailout   /Change   Option. 

The  analyst  is  next  presented  with  a  full  screen  of 
data  elements.  The  layout  is  such  that  the  left  side  cf  the 
item  latels  contains  the  cumbers  relating  to  the  SF  368 
blocks.  This  porticn  is  blank  where  the  element  is  net  on 
the  SF  368.  Following  each  element  label  is  a  reverse  video 
representation  showing  the  correct  length  of  the  input  item. 
The  inputs  which  are  optional  are  marked  by  a  <0>  (See 
figure  3.9) .  The  cursor  moves  from  one  data  element  to  the 
next  one  as  the  analyst  completes  item  entry.  Any  incorrect 
or  cut  cf  bounds  entry  will  result  in  a  specific  error 
message  to  the  user  showing  the  valid  range  of  inputs. 
These  error  messages,  when  activated,  appear  on  the  last 
line  cf  the  screen.  The  user  can  thus  consistently  lock  to 
a  single  location  for  status  or  error  messages  from  the  CDR 
System. 
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SF368 

5. 

NSN 

CATEGORY 

SMIC 

1  A. 

DIC 

3. 

REPORT    CONTROL 

U. 

EATE    DISCOVERED          MMDDYY 

6. 

NOMENCLATURE 

7. 

FSCM 

<0> 

8. 

MFG.    PART    NUMBER 

<0> 

9. 

SERIAL/LOT/BATCH 

<0> 

10. 

CONTRACT/PO 

<0> 

DOCUMENT    NUMBER 

<0> 

1  1. 

ITEM                        N    OR    0 

<0> 

12. 

EATE    MFG/REP/OVHL 

<0> 

13. 

CPN    TIME    AT    FAILURE 

<0> 

14. 

GOV    FURNISHED    MATL 

<0> 

1  5. 

CTY:    REC/INSP/DEF/STK 

1  6a  1  . 

IYPE/MODEI/SERIES 

<0> 

a2. 

SERIAL    NUMBER 

<0> 

b. 

NEXT    HIGHER    ASSY 

<0> 

SUB-AS SEMELY 

<0> 

******* 

CHECK    PREVIOUS    ENTRIES 

^p  nP  nf*   n^  hp  n^  n^ 

CHOCSE     1-    CONTINUE    ENTRY         2-    MAKE 

CORRECTIONS 

Figure  3.9    First  Screen  of  data. 

Consistent  with  the  previous  choices  of  leaving  a 
particular  screen,  the  analyst  has  the  ability  to  make 
changes  befcre  proceeding.  The  next  screen  of  data  presents 
the  same  basic  format  to  the  user,  and  allows  the  input  of 
the  second  half  of  the  data  elements.  The  NSN  and  category 
of  the  case  being  input  are  echoed  at  the  top  of  the  screen 
so  the  analyst  may  keep  track  of  them  for  later  reference. 
Data  items  are  calculated  by  the  program  where  possible  and 
then  inserted  into  the  screen  at  the  appropriate  point.  The 
extended  price  is  one  such  item  which  was  previously  hand 
computed  (See  figure  3.10). 

Upon  completion  of  data  element,  entry,  the  analyst 
may  elect  to  change  an  item,  post  the  case  or  exit  the 
opening  program  and  go  back  to  the  main  menu  without  posting 
the   case.   This   is  critical   at  this  time   in  the   entry 
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01 

UNIT  ERICE  EXTENDED  PRICE 

18.  EST.  CORRECTION  COST  <0> 

19.  WARRANTY  -  Y/N/U 

20.  WORK  UNIT  CODE  <0> 

21.  ACTICN/DISPOSITION  -H/I/D/R/O      <0> 

22.  DETAILS  OF  DISCREPANCY  -  FIRST  2 

LETTERS  MUST  EE  DISCOVERY  CODE 
23A.  ACTICN  POINT 

DEFECT  VERIFICATION  CODE  -  N/O/U/Y  <0> 

DEFECT  RESPONSIBILITY  -  C/N/S/U/X   <C> 

9Q 

ORIGIN    CODE 
30.        TYPE    EOC 

TYPE    DEFICIENCY 


1  -    POST    CASE 

2  -   CHANGE    DATA 

3  -    EXIT    WITHOUT    POSTING 


Figure    3.10       Second   Screen   of   Data. 

process.  If  a  majoi  mistake  had  been  detected,  it  would  be 
test  to  re-initiate  the  entry  of  a  particular  case  instead 
of  using  th€  update  program  to  change  each  item.  This  gives 
the  analyst  a  final  point  where  the  process  can  start  over 
without   any  interaction      with   the   current    cases.  From   the 

users  point  of  view  ix  is  comforting  to  know  that  an  earlier 
mis-ake  could  be  eliminated  prior  to  posting.  On  a  busy 
network,  the  posting  process  may  take  a  few  minutes,  thus 
the  analyst  is  re-assured  that  "all  is  well"  by  a  screen 
giving   a   status    report   on  the    process    (See    figure    3.11). 

After  successful  assignment  of  a  case  number  and 
posting  to  the  database,  the  case  number  is  displayed  o?.  the 
screen  (See  figure  3.12).  After  noting  the  case  number  on 
the  SE  368  for  any  future  reference  as  needed,  the  analyst 
can  clear  the  screen  by  pressing  any  key,  and  then  will  be 
tack  at  the  point  where  he  may  input  another  new  QDR  case  or 
return   to   the   main    menu. 
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CASE  BEING  POSTED  TO  DATA  BASE 
PLEASE  STANDBY 

***    DO  NOT  INTERRUPT    *** 

I 

i 


Figure   3.11        Response   to   POST   Choice 


CASE    NUMEER    OF    THE    NEW    CASE 
•400192A' 

PRESS    ANY    KEY    TO    CONTINUE 


Figure    3.12        Feedback   to   Analyst. 

The   above   seguence    gives    a   flavor   of   the    screens   and 
messages      that    are      present    in      the      QDR    System.  Foremost 

consideration  in  design  of  screens  and  menus  was  the  ease  of 
use  by  the  analysts.  The  screen  design  in  a  pattern  which 
matched  the  source  document  as  much  as  possible  while 
considering  additional  input  reguirements  led  to  a  clean, 
easy  to  understand  representation.  The  error  messages  were 
directed  at  identifying  a  specific  range  of  acceptable  input 
values  and  presenting  these  to  the  analysts  for  their 
review.  Consistency  of  inpu-  parameters  was  maintained  to 
enable  the  user  to  react  to  prompts  and  choice  points  thus 
requiring  a  minimum  of  additional  thought  and  attention  to 
the  process  of  data  entry  and  interaction  with  the  "QDR 
Machine"   itself. 
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2-      Multi-User    Environment 

The  QDR  System  uses  dEASE  II  to  handle  all  aspects 
cf      the      system's      operations.  This      database      management 

product  is  designed  fcr  a  single  user  and  does  not  provide 
the  locking  mechanisms  necessary  for  a  multi-user  environ- 
ment. To  overcome  this  deficiency,  a  Database  Handler  was 
created  to  control  access  tc  the  various  database  files. 
Access  tc  the  Database  is  achieved  by  calling  the  Database 
Handler  routine  and  providing  it  with  a  two  character 
alpha-nurrer ic  type  cede  which  represents  the  type  of  the 
desired  access  (See  figure  3.13).  The  Database  Handler  will 
either  expect  additional  parameters  or  will  provide  informa- 
tion   depending    on   the   selected   access   type. 

In  crder  to  perform  record  locking  or  file  write 
functions,  the  Database  Handler  must  first  establish  write 
access  zc  the  database  file  that  is  being  written  to.  A 
special  "File  Status"  data  file  provides  the  mechanism  tc 
determine  write  a.ccess.  As  each  user  process  calls  the 
Database  Handler  for  file  write  transactions,  the  file 
status  is  checked  to  see  if  the  file  is  currently  locked  by 
another  process.  If  the  file  is  locked,  the  Database 
Handler  enters  into  a  test  and  wait  loop  until  the  file  is 
made  available.  When  the  file  is  unlocked,  the  Database 
Handler  will  then  lock  the  required  file  by  placing  the  User 
I.D.  cf  the  operator  into  t he  file  status  file.  There  is  a 
point  of  contention  at  the  moment  the  file  is  released  by  a 
process.  Each  terminal  on  the  network  has  its  own  copy  of 
the  Da*atase  Handler  and  as  such,  when  a  file  is  unlocked, 
ether  processes  will  perform  the  same  locking  action.  To 
ensure  that  a  process  has  obtained  write  access,  a  verifica- 
tion check  is  made  just  prior  to  actually  performing  the 
write  operation.  If  write  access  has  been  obtained,  the 
Database    Handler   will   perform    the    wri-e    and   release   the    data 
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The  first  character  of  the  Access  Code   represents   the 

file  teing  accessed  and  the  second  character  represents 
type  of  access   desired. 

First  Character  Database  File  Used 

1  0PEN1 

2  0PEN2 

3  CL0SE1 

4  CL0SE2 

Second  Character  Database  Action 

A  Read  -  NSN  Access  (See  note  1) 

B  Read  -  Case  Number  Access 

C  Write  -  Unlock  Record 

D  Read/Lock.  -  NSN  Access 

E  Read/Lock  -  Case  Access 

F  New  Record  Creation  (See  note  2) 

G  Record  Unlock 

H  Read  -  Record  Number  Access 

I  Skip/Read  -  Record  Number  Access 

Note  1:   0pen2  and  Close2  do  not   have   NSN   Access  and 

default  tc  Case  Number  Access. 

Note  2:   Closel  and  Close2  create  new  records  from   the 
Open  File  records  being  closed. 


Figure  3.13    Database  Handler  Access  Codes. 

file  for  others.    If  write  access  is  not  obtained,  the  test 
and  wait  loop  is  entered  again. 

Tc  perform  a  write  operation,  the  entire  database 
file  is  lccked  so  that  no  one  else  can  write  to  it.  when  an 
individual  record  must  be  updated,  it  is  undesirable  to 
leave  the  Database  file  locked  while  the  operator  is  making 
updates  to  the  record.    To   prevent  this,   a  record  locking 
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capability  was  added  to  the  Database  Handler.  This  is  done 
by  including  a  timestamp  data  element  in  each  data  rsccrd. 
Prior  tc  retrieving  a  record  for  update,  the  Database 
Handler  checks  to  see  if  the  record  has  previously  been 
locked.  Any  attempt  to  update  a  locked  record  will  result 
in  a  cede  being  returned  tc  the  calling  program/module  (See 


The  Data  Base  Hardier  will  return  a   one  digit   Code 
indicating  the  Success/Failure  of  a  Data  Base  Access. 


Return  Code 
0 
1 
2-8 


Definition 

Eata    Base    Access   Successful 

Record   Currently  Locked 

Dnassigned    (Available      for 

future    growth) 

Record    Not    Found 


Figure  3. 14        Eata  Base   Handler   Return  Codes. 

Figure  3. 14).  As  with  general  write  operations,  the  data- 
base must  be  temporarily  locked  to  allow  the  timestamp  to  be 
written  cut  to  the  file.  This  record  locking  mechanism 
allows  multiple  users  to  function  without  unintentionally 
overwriting   informaticn. 

3 .      System    Security 

Eecause  of  the  amount  of  data  held  by  the  QDR  System 
and  the  value  of  the  informaticn  to  FMSO  Code  91423,  the  QDR 
System  required  some  degree  of  security.  There  are  basi- 
cally twe  levels  of  security  available  for  the  system.  The 
first  level  of  security  is  the  protection  of  the  System 
Disks.  •   The    Master    Network    Station    is    the    gateway    to    the    QDR 
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Programs   and      Data    Files.  By   keeping     the   master      station 

operating  disks  under  lock  and  key,  the  system  is  net  gener- 
ally accessible  to  unauthorized  personnel.  Access  to  these 
disks  should  be  controlled  by  the  system  supervisor  or  his 
assistant   supervisor. 

The  second  level  of  security  involves  a  logon  and 
password  system  incorporated  into  the  QDR  Software.  Each 
authorized  user  is  provided  a  unigue  user  identification 
code  which  will  allow  him  access  to  the  system.  In  addition 
to  the  reguired  I.E.  Code,  a  password  is  reguired  to 
complete  the  logon  procedure.  The  passwords  may  and  should 
be  changed  periodically  by  the  system  supervisor  to  reduce 
the  likelyhcod  of  unauthorized  personnel  becoming  familiar 
with    the    passwords.  To   utilize   the   QDR      System,      the   user 

accesses  the  system  as  described  in  the  section  en  user 
interface.  The  user  is  given  three  attempts  to  access  the 
System.  If  all  three  access  attempts  fail,  the  system  will 
display  an  "Illegal  Access  Attempt"  message  and  will  lockout 
the  terminal.  The  only  way  to  return  a  locked  terminal  to 
an   operational    mode    is  to   "reboot"   the   affec-ed   terminal. 

Although  this  method  of  security  is  simplistic,  it 
is  the  method  most  suitable  for  a  system  of  this  nature.  As 
the  value  of  the  data  held  by  the  system  increases,  the 
security  procedures  should  be  reviewed  to  ensure  they  are 
adeg  uate . 

4 .      Flexibility    And    Maintenance 

The  fact  that  the  QDR  System  could  expect  to  undergo 
changes  was  considered  in  not  only  program  development, 
but    also      in  the   database      organization.  Flexibility   and 

maintainability  of  the  entire  system  represented  develop- 
ment: objectives  ir  order  to  support  the  earlier 
discussed  design  goals  of  modularity  and  information 
hiding.. 
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EBASE  II  with  its  command  languaga  and  relational 
database  provided  a  powerful  vehicle  to  construe-  the 
programs      and      databases   for   the    system.  The   English-like 

guality  of  the  command  language  provides  the  programmers  a 
sense  of  code  function  over  and  above  relying  on  algorithm 
inspection      alone.  Comments   were      spread      throughout      the 

program  listing  where  xhey  would  assist  understanding 
of  specific  portions  of  the  processing,  especially  in 
QUERY  and  XEBHNDLR  (See  Appendix  D  for  a  complete  set  of  QDR 
Syszem  Erogram  Listings).  Additionally,  comments  were 
provided  in  the  progiam  headers  to  identify  critical  infor- 
mation. Variables  passed  between  the  module  of  interest 
and  all  ether  modules  as  well  as  a  list  of  subordinate 
and      superordina te      nodules    were    provided.  Maintenance   of 

the  programs  could  then  be  conducted  with  a  knowledge  of 
the    current   interface   between      the    modules. 

The  structured  programming  technique  of  indentation 
was  used  to  enhance  readability  and  understandability  of  the 
cede.  This  provided  anyone  reviewing  the  source  listings 
with  an  easy  to  understand  view  of  the  control  structures. 
Each  level  cf  control  was  indented  to  identify  and  clarify 
the  hierarchy  of  control.  Each  hierarchical  level  can  thus 
be  traced  from  level  to  level  by  following  the  indentation 
pattern. 

In  addition  to  the  general  aids  to  maintainability 
described  above,  scire  specific  areas  were  identified  for 
likely      future    changes.  Internally        generated        change 

was  expected  from  assignment  of  different  analysts,  addi- 
tional or  modified  internal  reports  and  standard  queries. 
External  changes  were  likely  in  the  areas  of  Cognizance 
Group       (COG)  assignments,  changing      addresses    cf      Item 

Managers   and  report    modifications. 

The  supervisor  was  provided  with  the  means  to 
update  .currently      authorized   users      and   their      passwords    via 
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the    supervisor's   main   menu.  The    updating   of  COGs    and   Item 

Manager's   information      were    also        included.  These        were 

seen    as        routine      housekeeping   modifications   which      did    not 
demand   a   programmer's  attention. 

If  demand  for  specific,  repetitive  queries  arise, 
the  addition  of  this  capability  by  maintenance  programmers 
is  very  easy.  Currently  each  analyst  is  able  to  receive  a 
listing  cf  each  of  his  currently  open  cases  as  a  standard 
guery      from     his    "report      menu".  To      add      any      additional 

guery        would        require      modification   of      only     one      program 
module. 

As  an  example,  suppose  that  a  commonly  cccuring 
guery  by  all  analysts  was  to  receive  a  list  of  their  open 
cases  frcm  a  particular  COG.  The  programmer  would  be  able 
to  provide  this  capability  by  adding  only  a  few  lines  of 
code.  The  addition      of   a      menu   selection      item      would      be 

accomplished  by    the    fcllowing: 
*****    MENU    ADDITION 

•    2    -  List  of   assigned   open   cases    for   specific   CCG    ' 

*****    VALIDATING    ENTRY 

STORE    I   TO     BADCCG 
DO    WHILE    BADCOG 

3    LINE, COLUMN    SAY     'Enter    COG'     GET    ANSWER 

READ 

USE   D:COGS 

FIND    ANSWER 

IF      #    =    0 

5)    23,20     SAY    'COG    NOT    FOUND,     TRY    AGAIN' 

ELSE 

STORE    F    TC    BADCCG 

ENDIF 
ENDDO    <3ADCCG> 

*****    NOW    FIND    THE   OPEN    CASES    FOR    THIS    ANALYST 
*****    CHOICE    OF    MEDIUM    WAS    MADE    IN    ORIGINAL    MENU 

DSE    D:OPEN1 

DISELAY   CASE, NSN.NOMEN,$ (DATES, 1 1,5)     FOR    COG    =    ANSWER 
. AND.     WHO    =   C : WHO 

This  is  but  cne  of  the  many  methods  that  could  be 
used    tc    provide      the    additional   capability    to      the    analysts. 
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The  isolation  of  the  functions  within  a  single  module 
combined  with  the  power  of  a  relational  database  are  a 
definite  asset  to  the  programmer  in  extending  the  use  of 
the    system    to   its   users. 

While  the  capability  to  extend  the  functions 
provided  has  been  built  in,  the  decision  to  do  so  should 
not  be  taken  without  consideration  of  the  impact  on  the 
system    as   a   whole.  An  extension      such      as      the      one      just 

described  could  be  helpful  and  not  be  detrimental  re  the 
system  operation  if  properly  i  irplemented.  A  choice  would 
have    to    be    made; 

1.  Restrict      the      use      of      this      option      to 
low   use   periods. 

2.  Implement    it      as    a   standard   internal    report, 
once    a    week  for   example. 

3.  Create   an   index    file    based   on   either   COG    or 
analyst   and   keep   these    updated   during    normal 
processing. 

The  supervisor  must  be  aware  of  the  impact  of 
these    alternatives.  What      in   the   first    view      looks   like  a 

very  easy  and  useful  method  of  producing  the  listings,  may 
potentially  cause  system-wide  problems.  The  two  rnos*  likely 
drawbacks  would  be  slowing  processing  response  time  to  an 
unacceptable  level  or  causing  additional  index  files  to 
steal    precious      space   on  the      system   hard   disk.  The    first 

option  would  allow  analysts  to  retain  greatest  flexi- 
bility, however  it  would  be  difficult  to  implement  and 
control.  The      internal      indexing   of      the      databases        for 

normal  processing  includes  neither  COG  nor  Analyst. 
For  this  reason  a  request  as  outlined  above  would 
require      a      sequential  search      of   the      0PEN1    database.  A 

process  that  could  take  up  to  30  minutes,  not  likely  a 
satisfactory  solution! 

The  second  option  has  the  advantage  of  being 
easy      to   control,         has      no    impact      on   day   to   day    processing 
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or  storage  and  meets  the  requirement  to  provide  a 
list      to        each      analyst.  Analyst      flexibility        would   be 

compromised  and  the  required  periodicity  would  have  to  be 
determined. 

Choice  number  three  would  allow  the  lists  to  be 
generated    upon      demand.  The      major    drawback  would      be   the 

addition  of  an  additional  index  that  would  havi  to  be 
updated  at  each  case  creation,  update  and  closing. 
This  would  add  overall  processing  requirements  and  thus  slow 
down    the   complete   system.  Additionally,         the    index    would 

require   space   on   the    hard   disk,      a   critical   resource. 

The  proper        choice      for        the        supervisor        and 

programmer  combination  would  balance  the  users  needs 
and      the        system   realities.  Although      the      above   example 

shows  a  simple,  easy  extension  it  points  out  the  neces- 
sary considerations  which  must  be  included  in  all  deci- 
sions. The  micro  computer  system,  as  well  as  the  mainframe 
computer    does   have   application    limits.  In    the    QDR      System 

all      current     requirements      have      been        met,  and        while 

designed  fcr  ease  of  maintenance  and  extendability ,  the 
latter   should  be  implemented   with   discretion   and    caution. 

B.       BAEDWARE 

The  QDR  System  is  a  combined  software  and  hardware  suite 
which  performs  management  information  and  database  manage- 
ment functions.  The  hardware  selected  for  the  system  was 
comprised  of  multiple  microcomputers,  secondary  storage 
devices,  printers,  monitors,  keyboards,  and  network  hardware 
with  controlling  software.  The  selection  of  the  supporting 
hardware  is  vital  to  the  operation  of  the  central  database 
system  because  it  provides  the  mechanism  for  sharing  the 
database  files  and  operating  programs.  To  meet  the  demands 
of  the  network   operation,   the  hardware  must   be  compatible 
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and    allow      the    equipment      to    be      integrated   into      a    complete 
system. 

1 •      Selected    Hardware 

The  microcomputer  selected  for  the  QDR  System  was 
the  IEM-Personal  Computer  (PC).  This  provided  expandability 
and  supported  both  networking  and  relatively  large  hard  disk 
storage  devices.  At  the  Naval  Postgraduate  School  prototype 
site,  the  network  was  composed  of  four  PC's.  Each  PC  was 
equipped  with  a  keyboard,  a  color  monitor  and  color 
controller  board  which  allowed  the  experimentation  with 
color  interfaces  for  users.  All  of  the  PC's  contained  two 
double-sided  double-density  320  KByte  floppy  disk  units  with 
controllers  and  network  controller  boards  for  Orchid 
Technology's  PCnet.  Two  of  the  four  PC's  had  128  KBytes  of 
random  access  memory  (RAM)  while  the  other  two  had  320 
KBytes  of  RAM.  The  320  KB  systems  were  also  equipped  with 
AST  Research's  MegaElus  board  which  provided  64  KB  of  the 
320  KE  RAM,  a  clock/calendar,  a  serial  input/output  (I/O) 
port,  and  a  parallel  I/O  port.  These  I/O  ports  allowed  the 
connection  cf  either  printers  or  modems.  Two  printers  were 
connected  to  the  network  (one  to  each  of  the  PCs  with  I/O 
ports).  One  printer  provided  letter  quality  output  through 
its  daisy  wheel  print,  while  the  other  provided  the  capa- 
bility cf  printing  text  and  drawing  graphs  through  its  dot 
matrix   print. 

The  personal  computers  with  the  additional  memory 
and  I/O  capabilities  were  also  outfitted  with  interface 
cards  for  Tallgrass  Technology's  20  MByte  Hard  Disk  Storage 
Units.  These  disk  units  provided  up  to  four  logical  disk 
drives  and  contained  built-in  tape  backup  units  which 
allowed    saving    archival    information. 
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2.      Hardware   Integration 

The  integration  of  the  hardware  was  largely 
completed    by     the   equipment    manufacturers.  The    controller 

boards  for  both  the  network  and  the  hard,  disk  interfaces 
were  specifically  designed  to  become  an  integral  part  of  the 
IBM-PC.  The  software  that  controlled,  both  th=  hard  disk  and 
the  network  were  created  to  work  in  conjunction  with  the 
PC-DOS  operating  system  and  with  each  other.  The  importance 
cf  this  interface  between  the  manufacturers  becaire  very 
apparent  as  system  integration  testing  began.  The  initial 
versions  of  the  network  and  hard  disk  software  were  not 
completely  compatible.  As  a  result,  the  system  was  prone  to 
locking  up  during  operations  that  involved  large  amounts  of 
disk  accessing.  The  respective  companies  worked  together  to 
solve  the  lockup  problems  and  made  available  the  corrected 
versions.  Once  the  corrected  versions  were  installed,  the 
lockup  problem  appeared  to  be  alleviated  and  cleared  the 
path    for   the  creation   of  the  Central    Database   System. 

3 •      Hardware   Limitations 

A  limitation  of  the  selected  hardware  suite  is  the 
inability  fcr  a  shared  PC  to  access  files  located  on  another 
shared  PC.  This  means  that  the  shared  PCs  are  limited  in 
their  ability  to  access  the  total  database.  During  the 
early  design  phases,  this  was  not  considered  a  problem 
because  each  record  only  requirsd  275  bytes  cf  information. 
Assuming  a  combined  lead  of  30,000  records  in  the  Open  and 
Closed  Database  Files,  the  system  required  less  than  9  Mega 
Bytes  of  storage.  Under  the  revised  QDR  processing  require- 
ments, the  same  load  cf  30,000  records  required  over  18  MB 
of  storage.  The  18  ME  requirement  does  not  include  overhead 
for  programs,  support  files,  or  indices  required  by  the  QDR 
System.        This    meant    that   the    Open   and   Closed   Database    Files 
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needed  tc  be  split  across  twc  hard  disk  units.  Since  the 
user  PCs  can  have  access  to  multiple  shared  devices,  this 
limitation  cnly  restricts  the  use  of  the  shared  PCs.  By 
utilizing  the  shared  PCs  as  network  controllers  only,  the 
databases  can  be  split  across  the  network  and  accessed  by 
all  users. 

C.   TESTING 

Testing  was  conducted  throughout  the  development 
period  of  the  QDR  System.  The  testing  approach  used  was 
to  progress  from  ur.it  testing  of  one  module  to  integra- 
tion of  tested  modules.  Validation  of  these  modules  against 
design  criteria  was  followed  by  system  testing  using  the 
complete   software  and   hardware   package.      [Ref.    4] 

1  •      Quit  Testing 

Unit  testing  cf  modules  represented  the  first  level 
of  testing.  Once  the  program  modules  were  coded  and  had 
been  cleansed  of  any  syntactical  ailments,  they  were  indi- 
vidually tested.  Both  testing  harnesses  and  program 
stubs  were  used  at  different  stages  of  program  development. 
The  top  down  design  had  identified  those  key  modules  needed 
to  suppcrt  the  function  of  the  system.  The  first 
modules  coded  and  tested  were  thus  the  Database  Handler 
{XDBKNDLR)  and  the  Cpen  Case  Module  (X0PEN2)  .  Testing 
XDBHNDLR  reguired  development  of  a  harness  in  order  to 
input  expected  parameters  and  make  available  specific  data 
to  the  mcdule.  The  emphasis  of  this  module  was  two-fold. 
First  it  was  expected  to  be  the  program's  interface  with 
the  case  databases,  and  as  such  had  to  properly  read  and 
write  specific  files  according  to  the  "type  code"  presented 
to  it.  The  second  concern  was  contention.  Stepwise 
testing      cf     the      module   was   conducted.         A      testing   harness 
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with  a  sample  data  set  was  used  to  exercise  the  Database 
Handler    until      it   performed    properly.  The     second   testing 

stage  was  to  use  iultiple  inputs  over  the  network  to 
isolate  any  contention  problems  and  eliminate  them. 
Concurrently  the  Open  Case  module  was  undergoing  parallel 
testing    using  the   database    directly. 

2-      Integration    and    System   Testing 

Integration  testing  was  then  conducted  to  bring 
together  the  XDBHNDLE  and  X0PEN2  modules.  The  purpose  of 
this  stage  was  to  ensure  the  interface  between  the 
modules  was  in  accordance  with  design.  Once  these  programs 
were  in  this  stage,  the  same  sequence  was  utilized  to  test 
the  other  main  modules,  and  bring  them  up  to  the  integrated 
level. 

Ey  late  October  the  main  processing  modules  were 
integrated  and  the  limited  system  was  operating  satisfacto- 
rily. The  systeir  re-design  and  development  discussed 
earlier  caused  testing  to  begin  anew.  At  that  time  the 
operating  system  version  was  changed  from  PC  DOS  1.1  to 
PC  DOS  2.0.  The  network  and  hard  disk  software  were 
also    upgraded. 

Limited  time  for  completion  of  system  development 
and  coding  resulted  in  only  partial  system  testing  by  mid 
January  en  the  NPS  prototype  system.  During  demonstration 
at  the  FKSO  site,  the  QDR  system  operated  properly  as  a 
single  user  system  but  net  with  multiple  simultaneous 
transactions  over   the     network.  The   cause   was      net   deter- 

mined at  that  time.  Orchid  Technology  and  Tallgrass  were 
contacted  to  discuss  the  difficulties,  resulting  in  an 
updated   release    of    bcth   software    packages   being   sent   to   NPS. 

limited  system  testing  on  the  NPS  network  indi- 
cated that  the  problem  had  been  corrected.  Subsequent 
operation    of      the      QDR   system    by    personnel    at   FMSO    (with   the 
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upgraded   software)       was      not      successful.         Multiuser    system 
failure    could   not   be    duplicated   at    NPS.  Reasons      for      the 

network    failure    at    FMSO   have      not      been   identified. 

3 .      Besponse   Times 

Multiple   users     and    large   databases      affect    response 
time    en   micro  computer     systems   to   a   large    degree.  Figure 

3.15    shows    the        time   required   fcr   specific      operations   with 
different      system  loads.  Where   depicted,        multiple    users 

are    performing   the    exact  sane    operations   simultaneously. 


SIZE  100    reds  6000    reds 

Users  12  3  12  3 

OPERATION 

1.    Pest   Case:  :26       1:15  2:25  :59        2:29      3:36 


2  • 

Case    Update 

1st  screen 

:38 

1:27 

1:53 

:52 

1:  59 

2:37 

2d     screen 

:  17 

:37 

1  :  12 

:24 

:50 

1  :0  8 

3.    Case   Closing       1:28         3:25      4:24         1:48         4:07      6:10 


Times  shown  as  minutes: seconds.  Where  time  represents 
multiple  users,  the  time  shown  is  completion  l:ime  for 
all    users 


Figure   3.15        Response   Times. 

These  times  give  an  idea  of  the  different  response 
the  user  can  expect  with  the  loadings  as  indicated.  The 
difference  in  times  used  by  adding  a  second  user  is  not 
significant.  However,  if  numerous  analysts  were  conducting 
operations  at  the  sane  time  then  the  times  could  increase  to 
a      level      where      input      operations      would      be      significantly 
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delayed.  The  differential  in  response  times  for  added  users 
reflects  two  items.  The  first  is  the  contention  induced  for 
packet  access  to  the  network,  which  represents  the  main 
pcrticn  cf  the  delay  time.  The  second  is  a  delay  due  to 
internal  checking  in  XDBHNDLB  to  allow  only  one  of  the 
asynchronous  processes  a.cc»ss  to  the  database.  Time  differ- 
ences between  the  operations  reflect  the  amount  of  data 
which  has  to  be  stcred  intc  the  database  as  well  as  the 
number  cf  different  databases  which  must  be  accessed  to 
complete  the  operation  (2  f cr  posting  a  case,  4  for  closing 
a  case)  . 
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IV.     CONCLUSIONS     AND    RECOMMENDATIONS 

A  prototype  system  is  designed  to  provide  an  interface 
for  users  and  acquaint  them  with  the  potential  value  cf  an 
automated   operation.  It    allows      the    user      to    see      how   the 

final  system  will  present  and  accept  data  and  provides  the 
opportunity  to  modify  the  interface  before  final  system 
implementation.  Prototyping  allows  the  rapid  development  of 
a  system  but  generally  dees  net  contain  all  of  the  capabili- 
ties   of   an   operational  system. 

The  QDR  System,  although  a  prototype,  was  designed  with 
capabilities  beyond      normal    prototyping.  It  provides      not 

only  user  interface  capabilities,  but  also  full  database 
management  capabilities.  The  additional  features  were  added 
to  allow  the  QDR  System  to  be  placed  in  an  operational  envi- 
ronment to  be  tested  and  to  aguaint  the  user  with  automated 
systems  and  their  operations.  To  provide  functionality,  the 
system  was  designed  for  multiple  users  to  access  the  data- 
base files.  This  meant  that  the  system  allowed  for  record 
locking,  multiple  read/write  operations,  and  security  access 
to    the   system. 

A.       CONCLUSIONS 

The  design  and  implementation  of  an  automated  Quality 
Deficiency  Reporting  System  prototype  has  been  described  in 
this  study.  A  working  prototype  has  been  established  and  is 
available   fcr      future  evaluation.  Conclusions    drawn      from 

this    development   include: 

1.  The      prototype      software        design      meets      current      QDR 

processing  requirements  and  includes  PDREP  derived  data 
elements   identified    fcr    future    inclusion   in      the    QDR    System. 
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2.  There  are  two  main  operating  limitations  with  the 
current  system;  speed  of  processing  with  multiple  users  and 
limited    system    capacity   to    meet    increased   QDR    requirements. 

3.  The  NPS  prototype  system  demonstrated  the  feasibility  of 
accomplishing  QDR  processing  on  a  microcomputer  tased 
system. 

4.  If  new  software  and  hardware  become  available  to  allev- 
iate network  and  database  limitations,  the  prototype  could 
te   modified   to    provide   an  operational   system. 


B.       RECOMMENDATIONS 

1.  Continue  developnent  of  a  microcomputer  based  system  to 
provide    automation    of  the  QDR   workflow. 

2.  Consider  migration  to  a  minicomputer  or  mainframe 
computer  using  the  basic  prototype  design,  in  order  to  allow 
for    faster    response    time   and   growth    potential. 

The  recommendations  above  provide  for  the  user  to  become 
familiar  with  the  automation  capabilities  that  can  be  imple- 
mented in  the  QDR  processing  environment.  Additionally,  it 
opens  up  the  channels  for  user  feedback  to  system  designers 
that  are  working  on  future  versions  of  QDR  support  systems. 
The  initial  design  considerations  that  went  into  creating 
the  prototype  system  are  valid  for  mini/mainframe  computer 
implementation.  The  data  dictionary  used,  the  menus  and 
interface  screens,  and  the  security  considerations  will 
remain  valid  in  both  the  microcomputer  and  mini/mainframe 
computer  environments.  The  use  of  a  higher  level  language 
in  the  prototype  system  provides  the  potential  to  directly 
convert    the   algorithms   to   a    new   system. 

If  it  is  more  practical  to  continue  utilizing  the  micro- 
computer  network,    the   size    of    the   database    could    be    expanded 


41 


by  the  use  cf  35  ME  hard  disk  units,  thus  approximately 
doubling  the  system  capacity.  Additional  speed  for  the 
microcomputer  network  could  possibly  be  achieved  by 
converting  the  file  and  record  locking/unlocking  operations 
into  assembly  or  machine  language  routines  (although  this  is 
net  recommended  because  of  future  maintenance  headaches) . 
Another  avenue  to  explore  is  the  acquisition  of  a  multi-user 
version  cf  dBase  II  that  was  recently  announced.  This  would 
allow  the  elimination  of  file  locking  and  control  currently 
accomplished  by  the  £DR  System  software,  and  with  a  small 
amount  cf  re  programing  the  XDBHNDLR  program  could  be 
eliminated. 

The   prototype  QDE      System    provided   a   starting      point    for 
future      growth      in      the    QDR      processing      environment.  The 

groundwork  that  has  teen  laid  can  be  utilized  for  either  a 
continuation  in  the  nicroccmputer  realm  or  can  be  utilized 
with    larger   computers. 
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APPENDIX    A 
GLOEaL    MEMORY    DEFINITIONS 

There  are  various  types  cf  memory  variables  utilized  by 
the  QDR  System.  These  variables  are  divided  into  Global  and 
Local  Variables.  Global  Variables  are  used  to  transfer  data 
between  programs  and  modules  and  are  designated  by  either  M: 
or  C:.  Local  Variables  are  utilized  for  internal  control 
within  programs.  These  variables  are  identified  by  U:  for 
XUPDATE,    H:    for    XDBHNDLR,    0:    for    X0PEN2,    etc. 

The  variables  listed  below  are  the  Global  Variables 
utilized   by   the    QDR    Sys-em.       They   are   presented   as: 

Variable    Name  Using    Modules 

Description  Of   Variable 

C:JULIAN  (CLOSREC,    LOGON,     MENU1,     XDBHNDLR, 

X0PEN2,     XUPDATr     XXBISTAT,     XXKNSTAT) 

MEMORY    VARIABLE    WHICH    HOLDS    TODAYS    JULIAN    DATE.        THIS    DATE 
IS    GENERATED   BY    ACCESSING    THE    SYSTEM    CALANDER    AND    CONVERTING 
TO    A    JULIAN    DATE. 


CtWHO  (CLOSREC,    COGCNT,     C-REASGN.     DEPACKr 

LOGON,     MENU1,    OCASERPT,    QUERY, 
RPTMENU,    STATGEN,    SUPMENU1,    SUPRETS, 
SUPRPT2,    UTILMENU,     UTILNDX,     XDBHNDLR, 
X0PEN2,     XUPDAT,     XXBISTAT,     XXMNSTAT) 

MEMORY    VARIABLE    THAT    HOLD   THE    LOGON    IDENTIFICATION    OF    THE 
ANALYST.       THIS    IS    CAPTURED     DURING    THE    LOGON    PROCESS. 


M:ACTDISE  (XDBHNDLR,    X0PEN2,    XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  ACTION/DISPOSITION 
INSTRUCTIONS.  ORIGINALLY  CAPTURED  FROM  BLOCK  21  OF  THE 
SF    3  6  8. 


M-.ACTFT  (XDBHNDLR,     X0PEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    ACTION    POINT 
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M:ACTTKN  (XDBHNDLR,     XUPDAT) 

MEMOES    VARIABLE    WHICH    IDENTIFIES    THE    ACTION    CODE.        ORIGINAL' 
LY    CAPTURED    FROM    BLOCK    21    OF    THE    SF    368. 


M:CASE  (CLOSREC,    C-REASGN,     XDBHNDLR,     XOPEN2, 

XUPDAT) 

MEMORY    VARIABLE    USED    TO    CAPTURE    THE    NUMBER    OF    THE    QDR    CASE. 


M:CAT  (C-REASGN,     XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    HOLDS     THE    CLASS    OF    THE    QDR    CASE. 
CASES     KAY    BE    EITHER    CATEGORY    1     (HIGH    PRIORITY)    OR    CATEGORY    2 
(NORMAL    PRIORITY).        ORIGINALLY    CAPTURED    FROM    THE    SF    368    OR 
GDR     MESSAGE. 


M.'CAUSEC  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    CAUSE    CODE. 

M:CCOST  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    ESTIMATED   CORRECTION 
COST.       ORIGINALLY    CAETURED    FROM    ELOCK    18    OF    SF    368. 

M:CLOSE  (CLOSREC,    XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    HOLDS    THE    DATE    THE    CASE    WAS    CLCSED. 
ORIGINALLY    ENTERED    UICN    CLOSING    THE    CASE. 


M:COG  (C-REASGN,     XDBHNDLR,     XOPEN2,    XUPDAT, 

XXBI  STAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    COGNIZANCE    SYMBOL    FOR    THE 
ASSOCIATED    NSN .     ORIGINALLY    CAPTURED    FROM    BLOCK    5     OF    THE 
SF    368. 


MtCOSTC  (XDBHNDLR,     XUPDAT) 

MEMORY    VARIABLE  WHICH    IDENTIFIES    THE    COST    CODE. 

M:CR  (CLOSREC,     XDBHNDLR,    XUPDAT) 

MEMORY    VARIABLE  WHICH    IDENTIFIES    THE    CREDIT    CODE. 


MtDATES  (CLOSREC,    C-REASGN,     XDBHNDLR,     XOPEN2, 

XUPDAT,     XXBISTAT,    XXMNSTAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    CONCATIN AT  ION    OF    THE    MAJOR 
EATES    ASSOCIATED    WITH    THE    QDR    SYSTEM. 
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M:DEF  (XDBHNDLR,     X0PEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    TYPE    DEFECT    CODE. 

M:DEFR  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    HOLDS    THE    DEFECT    RESPONSIBILITY    CCDE. 

M:DEFV  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    DEFECT    VERIFICATION    CODE. 

M:DETAILS  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    DETAILS    OF    THE    C.DR. 
ORIGINALIY    CAPTURED     FROM    BLCCK    22    OF    THE    SF    368. 

M:DIS  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    DISCOVERY    CODE. 
ORIGINALLY    CAPTURED    FROM    BLCCK    22    OF    THE    SF    368. 

M:DITEM  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    CONCATENATES    MODEL,    SERIAL    NUMESR    OF 
DEFICIENT    PART,     NEXT    HIGHER     ASSEMBLY,     AND    SUB    ASSEMBLY. 
ORIGINALLY    CAPTURED    FROM    3L0CK    16    OF    SF    368. 

M:DOC  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    TYPE    DOCUMENT.       ORIGINALLY 
CAPTURED    FROM    BLOCK     30    OF    THE    SF    368. 

M:DOCNO  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    DOCUMENT    NUMBER.        ORIGINALLY 
CAPTURED    FROM    BLOCK     10    OF    THE    SF    368. 

M:EPEC  (XD3HNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    EXTENDED    PRICE    OF    THE 
DEFICIENT    MATERIAL.        THE    EXTENDED    PRICE    IS    CALCULATED    BY 
MULTIPLYING    THE     QUANTITY    DEFICIENT    3Y    THE    UNIT    PRICE. 
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M:FSCM  (XDBHHDLB,    X0PEN2,    XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  FEDERAL  SUPPLY  CODS  OF 
MANFACTURER.  ORIGINALLY  CAPTURED  FROM  BLOCK  7  OF  THE 
SF    368. 


M:GOV  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    GOVERNMENT    FURNISHED 
MATERIAL.       CRIGINALLY    CAPTURED    FROM    BLOCK     14    OF    THE    SF    368, 


M:ITEM  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE  WHICH    IDENTIFIES    THAT    THE    ITEM    IS     NEW    OF    A 

REPAIR/OVERHAUL  ITEM.       ORIGINALLY    CAPTURED    FROM    BLOCK    11    OF 
THE    SF    368. 


M:KEY  (CLOSREC,    C-REASGN,     XDBHNDLR,     XOPEN2) 

MEMORY    VARIABLE    WHICH    CONTAINS    THE    DATABASE    ACCESS    KEY. 

M:LDATE  (CLOSREC,    XOPEN2) 

MEMORY    VARIABLE     WHICH    HOLDS    THE    DATE    THE    CASS    WAS    TRANSMIT- 
TED   TO    THE    ITEM    MANAGER.    ORIGINALLY    ENTERED    UPON    TRANS- 
MISSION   OF    THE    CASE. 

M:LOT  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    MANUFACTURERS    LOT 
NUMBER.       ORIGINALLY    CAPTURED    FFOM    BLOCK    16B(3)     OF    SF    368. 

M:MFG  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    MANUFACTURERS    PART 
NUMBER.       ORIGINALLY    CAPTURED    FROM    BLOCK     16B(3)     OF    SF    368. 

M:NOMEN  (XDBHNDLR,    XOPEN2,    XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  NOMENCLATURE  OF  THE  MATERIAL 
EEING  REPORTED  IN  THE  QDR.  ORIGINALLY  CAPTURED  FROM  3LCCK  6 
OF    THE    SE    368. 

M:NSN  (C-REASGN,     XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    NATIONAL    STOCK    NUMEER. 
ORIGINALLY    CAPTURED    FROM    BLCCK    5    OF    SF    368. 
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M:NUM  (X0PEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    CONTRACT    NUMBER    UNDER 
WHICH    THE    REPORTED    MATERIAL     WAS    RECEIVED.       ORIGINALLY 
CAPTURED    FROM    BLOCK     10    OF    THE    SF    368. 


M:09Q  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    GS A    REGION    CODE 
FOR    90.    ITEMS. 


M:OPEN  (CLOSREC,    XOPEN2,     XUPDAT) 

MEMOEY    VARIABLE    WHICH    HOLDS    THE    DATE    THE    CASE    WAS    OPENED, 
ORIGINALLY    ENTERED     BY    THE    SYSTEM    UPON    NEW    CASE    INPUT. 


M:ORG  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    ORIGIN    CODE. 

M:OTF  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    OPERATING   TIME    AT 
FAILURE.       ORIGINALLY    CAPTURED    FROM    BLOCK    13    OF    THE    SF    368. 

M:OVER  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    DATE    OF    MANUFACTURE/ 
OVERHAUL.       ORIGINALLY    CAPTURED    FROM    BLOCK     12    OF    THE    SF    368, 

M:QTYEEF  (XDBHNDLR,    XOPEN2,     XUPDAT) 

MEMORY    VARIABLE     WHICH    HOLDS    THE    QUANTITY    OF    MATERIAL 
REPORTED    AS    DEFICIENT.       ORIGINALLY    CAPTURED    FROM     BLOCK 
15C    OF    TEE    SF    368. 

MrQTYINS  (XDBHNDLR,     XOPEN2,    XUPDAT) 

MEMORY    VARIAELE    WHICH    HOLDS    THE    QUANTITY    OF    MATERIAL 
INSPECTED    EY   THE    REPORTING     ACTIVITY.       ORIGINALLY     CAPTURED 
FROM    ELCCK    15B    OF    THE    SF    36  8. 

M:QTYREC  (XDBHNDLR,    XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    HOLDS     THE    QUANTITY    OF    MATERIAL 
RECEIVED    EY    THE     REPORTING    ACTIVITY.       ORIGINALLY    CAPTURED 
FROM    ELOCK     15A    OF    THE    SF    368. 
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M:QTYSTK  (XDBHNDLR,     X0PEN2,    XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS    THE    QUANTITY    OF    MATERIAL    IN 
STOCK    AT    THE    REPORTING    ACTIVITY    WHEN    THE    QDR    WAS    SUBMITTED. 
ORIGINALLY    CAPTURED    FROM    BLOCK    15D    OF    THE    SF    368. 


M:RDATE  (CLOSREC,    XOPEN2,     XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  RECEIVED  FROM  ORIGIN. 
ORIGINALLY  CAPTURED  FROM  THE  MAILROOM  TIMESTAMP  ON  RECEIPT 
DATE. 


M.-REC1  (CLOSREC,    XDBHNDLR,     XOPEN2) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    RECORD    NUMBER    OF    THE 
RECORD    BEING    PROCESSED.       THIS    IS    A    SYSTEM    GENERATED 
VARIAELE. 


M:REOEEN  (CLOSREC,    XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    DATE    A    CLOSED    CASE    IS 
REOPENED.       ORIGINALLY    ENTERED    UPON    REOPENING    A    CLOSED    CASE. 


M:REPCON  (XDBHNDLR,     XOPEN2,     XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS    THE    REPORT    CONTROL    NUMBER. 
ORIGINALLY       CAPTURED    FROM    BLOCK    3    OF    THE    SF    368. 


MrREPIY  (XDBHNDLR,     XUPDAT) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    REPLY    RECEIVED    FROM 
THE    ITEM    MANAGER.       ORIGINALLY    CAPTURED    FROM    BLOCK    32    OF 
THE    SF    368. 


M:RETC  (XDBHNDLR,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    RETURN    CODE    OF    THE    QER. 

MrRIMDATE  (CLOSREC,    XUPDAT) 

MEMORY    VARIABLE    WHICH    HOLDS     THE    DATE    RETURNED    FROM    THE    ITEM 
MANAGER.       ORIGINALLY    ENTERED    UFON    RECEIPT    OF    A    RESPONSE 
FROM    THE    ITEM    MANAGER. 

M:SCR  (XDBHNDLR,     XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    SCREENING   CODE. 
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K;SC?CTY  (XDBHNDLB,     XUPDAT) 

BEH0B1    VARIABLE     SHICE    IDENTIFIES    THE    SCREENING    QUANTITY. 


E:SE  (XE3HNDLE,    XOPEN2,     XUPDAT) 

EEMGEY  VAEI1ELE  WHICH  IDENTIFIES  THE  SUPPLY  HANAGEHENT 
INFOEEATICN  CODE.  OEIGINALLY  CAPTURED  FROM  BLOCK  5  CF 
£F    366- 


:he 


E:ST*1CSC  (XD3HKDLE,     XUPDAT) 

KEM05T!    VJ1HI1ELE    HHICE    IDENTIFIES    THE    STATUS    CODE. 


B :  T I  E  E 


(LOGON,     XEEHNDLR,     XOPEN2) 


EEMOBi     VARIABLE     BHICH    HCLDS    THE    TIHESTAMP.        TEIS     IS    A 
SYSTEE    VJBIABLE    USED    10    LOCK    INDIVIDUAL     RECORDS. 


E :  T  Y  E  E 


(CLOSEEC,  C-REASGN,  XDBHNDLB,  XGPEN2, 
XUPDAT) 


EEHOBS  VIBIIELE  wKICE  HOLDS  THE  CODE  SPECIFYING  THE  DATABASE 
BANDIES  ACCESS  CCDE. 


E :  U I 


(XDBHNDLF,     X0PEN2,     XUPDAT) 


EEECEY    V2BI2BLE    ViHICE    HCLDS     1BE    UNIT    0. 


'.  3  S  U  E    FOR 


THE 


EEPCEIED    MATERIAL.        CEIGINALLY    CAPTURED    FROM    THE    ML-N 
EASEE    CN    TEE    NSN    BEING    REPORTED. 


E :  U I C 


(XD3HNDLS,     X0PEN2,     XUPDAT) 


ESM0B5    VARIABLE     SHICE    HCLDS     THE    UNIT    IDENTIFICATION    CCDE    CF 
TEE     ACTIVITY    SOBKITTING    THE    QDR.       ORIGINALLY    CAPTURED    FECK 
ELOCK     1A    CF    THE    SF    3  6  6. 


E:UE?C  (XD3HKDLE,     X0PEN2,     XUPDAT) 

BEMOEX    ViBIIBLE    WHICfc    HOLDS    THE    UNIT    PRICE    FOE    Ta  .. 
KAi.cni.AL.        C . 
EEPCEIEC    NSN 


CRIGINALLY    CAPI'JEZl     FROM    THE    KL-N     iAS 


E:VLC  (CLOSREC,     XDBHNDLB,     XUPDAT) 

BEM0E1     VARIABLE     SHICH    IDENTIFIES    7nZ    VENDOR    LIABILITY     CCDE, 
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M:WHO  (C-REASGN,     XDBHNDLR) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  INDIVIDUAL  CREATING 
THE  EECOED.  THIS  IS  A  SYSTEM  VARIABLE  WHICH  IS  CAPTURED 
FROM    TEE    SYSTEM    LOGON. 


M:WNTY  (XOPEN2,    XUPDAT,    XDBHNDLR) 

MEMORY    VARIABLE    WHICH    IDENTIFIES    THE    WARRANTY    STATUS    OF    THE 
ITEM.       ORIGINALLY    CAEIURED    FROM    ELOCK    19    OF    SF    368. 


M:WUC  (XDBHNDLR,    XOPEN2,    XUPDAT) 

MEMORY    VARIABLE     WHICH    IDENTIFIES    THE    WORK    UNIT   CODE 
ORIGINALLY    CAPTURED    FROM    BLOCK    20    OF    THE    SF    368. 
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APPENDIX    B 
QDR    IATABASE    FILE    STRUCTURES 

STRUCTURE    FOE    FILE:       E:0PEN1  .DBF 

FLD  NAME  TYPE  WIDTH  DEC 

C  007 

C  002 

C  013 

C  001 

C  019 

C  006 

C  002 

K  006 

N  009  002 

N  012  002 

C  003 

C  001 

C  014 

C  046 

C  012 

C  006 

C  011 

C  004 

C  017 

C  001 

C  003 

C  002 

C  001 

C  002 

C  001 

C  011 

N  006 

00219  EYTES 


STRUCTURE    FOE    FILE:        D:OPEN2  .DBF 

FLD  NAME  TYPE  WIDTH  DEC 

001  CASE  C  007 

002  QTYINS  N  006 

003  QTYREC  N  006 

004  QTYSTK  N  006 

005  DEFV  C  001 

006  DEFR  C  001 

007  ITEM  C  001 

008  OVER  C  005 

009  OIF  C  005 

010  GCV  C  001 

011  TIME  C  0  11 

012  WHO  C  004 

013  DITSM  C  035 

014  CCOST  N  012  002 
C15  WNTY  C  001 

016  .         WUC  C  007 

017  DIS  C  002 
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001 

CASE 

002 

CCG 

003 

NSN 

004 

CAT 

005 

NCMEN 

006 

UIC 

007 

UI 

008 

QTYDEF 
UPRC 

009 

010 

EPRC 

011 

ORG 

012 

DCC 

013 

DCCNO 

014 

DATES 

015 

REPCON 

016 

FSCM 

017 

TIME 

018 

WHO 

019 

NUM 

020 

CE 

021 

SCR 

022 

SK 

023 

0  9Q 

024 

DEF 

025 

VLC 

026 

ACTPT 

027 

SCRQTY 

**    TOTAL 

** 

C18 

C 

019 

REPLY 

c 

020 

ACTTKN 

c 

021 

CCSTC 

c 

022 

STATOSC 

c 

023 

CAUSZC 

c 

C2U 

?.  ETC 

c 

025 

ACTDISP 

c 

026 

HFG 

c 

C27 

LCT 

c 

**  TOTAL  ** 


120 
120 
003 
001 
002 
001 
001 
0  01 
016 
009 

003  86   3YTES 


STRUCTURE    EC?    EILE  :       D:CL0521 


T"\  *"*  "*"l 


FLD 


NAME 


I 'ill 


WIDTH 


DEC 


001 

CASE 

002 

CCG 

::3 

NSN 

COa 

CAT 

005 

KCflEH 

C06 

OIC 

007 

01 

003 

QTYDEF 

C09 

GPRC 

010 

EPHC 

011 

OBG 

012 

DCC 

013 

DCCNO 

C14 

DATES 

015 

BE  PC  OH 

016 

V  C~V 

017 

T I  HE 

013 

WHO 

019 

NUM 

020 

C5 

c:i 

SCB 

022 

e;  y 

023 

C9Q 

024 

DEE 

025 

VIC 

026 

ACTPT 

027 

SCBQTT 

*  *    T  C  Z  A 1 

** 

C 

c 
c 
c 

c 
c 
c 

N 
N 
K 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

K 


007 
002 
013 
001 
019 
006 
002 
0  06 
009 
0  12 
003 
001 
0  1U 
046 
012 
0  06 
011 

01"7 
001 

003 
002 
001 
002 
001 
011 
006 


002 
002 


002  19    BYTES 


STRUCTURE    FCF    FILE 


E:CLOSE2 


D3F 


ELD 
001 

::•: 

003 
0C4 

::  = 
::c 
:c 

003 
009 
010 
011 


NAME 


IYPE 


CASE 

C 

Z  T  YI 1 S 

N 

CTYREC 

N 

QTYSTK 

N 

DEF7 

C 

DEE?. 

C 

::em 

C 

OVER 

C 

ZZT 

c 

GCV 

C 

TIME 

C 

WIDTH 

007 
006 
006 
0  06 
001 
001 
001 
005 
005 
001 
011 


DEC 
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012 

WHO 

C 

013 

DITEM 

c 

014 

CCOST 

N 

015 

WNTY 

C 

016 

WUC 

c 

017 

DIS 

c 

018 

DETAILS 

c 

019 

REPLY 

c 

020 

ACTTKN 

c 

021 

CCSTC 

c 

022 

STATUSC 

c 

023 

CAUSEC 

c 

024 

BETC 

c 

025 

ACTDISF 

c 

026 

MFG 

c 

027 

LCT 

c 

0  04 

035 

012  002 

001 

0  07 

002 

120 

120 

003 

001 

002 

001 

001 

001 

016 

009 


001 

COG 

c 

002 

IB 

c 

003 

CCUN 

N 

**    TOTAL    **  003  86    BYTES 


STBUCTUBE    FCE    FILE:       C:COG  .DBF 

FLD  NAME  TYPE  WIDTH  DEC 

002 
007 
004 

**    TOTAL    **  000  14       BYTES 


STEUCTUEE    FCB    FILE:       D: TECHCODE  .  DBF 

FLD  NAME  TYPE  WIDTH  DEC 

020 
004 
008 
001 
004 
004 
004 
0  04 
004 

**    TOTAL    **  00054       BYTES 


STBUCTUBE    FCS    FILE:       C:ADDBESS    .DBF 

FLD  NAME  TYPE  WIDTH  DEC 

0  07 
018 
040 
040 
015 
020 
020 
002 
005 
004 
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001 

NAME 

C 

002 

TECHCODE 

c 

003 

PSWD 

c 

004 

LOGGED 

c 

005 

ASSIGNED 

N 

006 

ACTIVE 

N 

007 

TEANSMIT 

N 

008 

EESPOND 

N 

009 

CIOSED 

N 

001 

IM 

C 

002 

TITLE 

0 

003 

COMMAND 

C 

004 

COMMA ND2 

c 

005 

ATTN 

C 

006 

SIBEET 

c 

007 

CITY 

C 

008 

STATE 

c 

009 

ZIP 

C 

010 

COUNT 

K 

**    TOTAL    ** 


00172       BYTES 


STRUCTURE    FOB    FILE:       D:WHERDIS     .DBF 


FLD 


NAME 


TYPE 


WIDTH 


DEC 


001 
002 


CCDE 
TEXT 


**    TOTAL    ** 


C 

c 


002 
020 


000  23    BYTES 


STRUCTURE    FCB    FILE:       D : FIL EST AT . DBF 


FLD 


NAME 


**    TOTAL    ** 


TYPE 


001 

OPEN1 

C 

002 

OPEN2 

C 

003 

CLOSE1 

c 

004 

CLOSE2 

c 

WIDTH 

004 
004 
004 
004 


000  17    EYTES 


DEC 


STRUCTURE    FCB    FILE 


D:BIWKSTAT.DBF 


FLD 


NAME 


**    TOTAL    ** 


TYPE 


001 

YEAR 

C 

002 

TOTALS 

N 

003 

LAST 

C 

WIDTH 

004 
005 
005 


DEC 


000  15    BYTES 


54 


APPENDIX    C 
DATA    ELEMENT    DEFINITIONS 


This  provides  a  list  of  the  Data  Element  pictures  that  are 
used  in  various  QDR  proqrams.  The  column  labeled  "Data 
Element"  contains  a  short" d escription  of  the  actual  Element 
that  the  Variable  represents.  The  column  "ID"  contains  the 
variable  name  associated  with  the  Data  Element.  The  ID  is 
further   defined    in    Appendix    A.  The    "Type"    is   either    char- 

acter "C"  or  numeric  "N",  with  a  length  as  shown.  The 
"Picture"  shows  the  size  and  character  type  of  each  Data 
Element.      Standard   representations   are   used: 


'A' 

191 

•X' 


-  Alphabetic 

-  Numeric,    0-9 

-  Either    numeric 


or   alphabetic 


Data    Element  ID 


Picture 


Case    Number  a 

Cognizance  a 

Category  H 

Nomenclature  M 

DIC  M 

Dnit    of    issue  M 

Unit    Price  M 

Quantity   Def.  H 

Quantity   Insp.  M 

Quantity   Recvd  M 

Qty    in    Stock  a 

Extended   Price  a 

Crigin  a 

Deficiency    Ver  M 

Deficiency    Resp  M 

Type    Document  a 

Discovery   Date  M 

Date    Rcva   fm  Org  M 

CDen    Da~e  M 

Date    Ltr    Typed  M 

Screen    Rpt    Date  a 

Interim    Resp  Dat  a 

Date    rtn    fm    IH  a 

Close   Date  a 

ReoDen   Date  a 

Dates   cencat'ned  M 

Date    change    ID  a 


CASE 

CCG 

CAT 

NCaEN 

DIC 

DI 

DEFC 

QTYDEF 

QTYINS 

QTYREC 

QTYSTK 

EPRC 

OEG 

DEFV 

DEFR 

DCC 

DDATE 

RDATE 

OEFN 

LCATE 

SCFDAT 

I RDATE 

RIMDAT 

CLCSE 

RECPEN 

DATES 

DATECI 


999999A' 

XX* 

9« 

XXX. . .XX' 

AXXXXX' 

AA  ' 

999999.99' 

999999' 

999999' 

999999' 

999999' 

999999999.99 

XXX' 

A* 

A' 

9' 

99999 

99999 

99999 

99999 

99999 

99999 

99999 

99999 

99999 

See   note    1 

X'    See   note    2 


Type 

A7 

A2 

A1 

A19 

A6 

A2 

N9 

N6 

N6 

N6 

N6 

N12 

A3 

A1 

A1 

A1 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A  5 

A5 

AU6 

A1 


Report    Control    #  a 

Document    Number  a 

Fsca  a 

Time    Stair?  a 

Analyst   Code  a 

New-Repair/Cvhl  a 

Date    Kfg/Ovhl  M 

Cpn    Time-Failure  a 

Govnment    Furnish  a 


REECON 

DCCNO 

FSCM 

TIME 

WHC 

ITEM 

OVER 

OTF 

GCV 


fcork    Unit   Code         M:W0C 


See  note  3 
See  note  4 

•XXXXXX' 

•99999999999 

•XXXX' 

•A' 

•99999' 

•  A9999' 

•X« 

•XXXXXXX' 


A12 

A14 

A6 

A11 

A4 

A1 

A5 

A5 

A1 

A7 
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Cisco 

Detai 

Hetur 

Becor 

Contr 

Credi 

Scree 

Reply 

Actio 

Cost 

Statu 

Cause 

Actio 

SMIC 

9Q    Re 

Type 

Vendc 

Actio 


very   Code 
Is    section 
n  Cede 
d   Variable 
act    Number 
t    Cede 
n i :ig  Cods 

Section 
n  Cede 
Code 
s  Cede 

Code 
n  Disp'n 

gicn   Cede 
tef ect 
r   Liab  Cod* 
n    Feint 


Eart    Number 
Lot /ser/ Latch 

NSN 

lype/Model/Ser 
Eef    Item   Ser   # 
Higher   Assy 
Sub    asseirbly 
Eef      Item 
Est   Ccrr   Cost 
Warranty 
Screen   Quantity 

NOTES: 


M 
M 
M 
H 
M 
H 
H 
M 
H 

a 

H 

M 

a 

H 

M 
M 
M 
H 

H: 
H 

M 
0 
0 
0 
0 
H 
M 
M 
M 


DIS 

DETAILS 

RETC 

REC1 

NUM 

CR 

SCF 

REELY 

ACITKN 

CCSTC 

STATUSC 

CACSEC 

ACTDISP 

SM 

09C. 

DEF 

VIC 

ACTPT 

MFG 
LCT 

NSN 

MCDEL 

DEESER 

HASSY 

SASSY 

DITEM 

CCCST 

WNTY 

SCFQTY 


198. .X' 


AA« 
XX. 
9» 

99999A* 
See   note   5 
A« 

xxx« 

XX. . 198.. X' 

AAA' 

A« 

AA« 

A' 

AX* 

X' 

g9i 

A' 
AXXXXX99999' 

XX. .16. .XX» 
XXXXXXXXX' 

See  note  6 

XXXXXXX' 

XXXXXX' 

XXXXXXXXXX' 

XXXXXXXXXXXX 

XXXX  35  XXXX 

999999999.99 

A' 

999999' 


A2 

A198 

A1 

A6 

A17 

A1 

A3 

A198 

A3 

A1 

A2 

A1 

A1 

A2 

A1 

A  2 

A1 

A11 

A16 

A9 

A13 

A7 

A6 

A10 

A12 

A35 

N12 

A1 

N6 


1 


3 
U 
5 
6 


All   d 

the    v 

This 

activ 

linit 

This 

ar  e   e 

forme 

stati 

durin 

tics 

Repcr 

M:DOC 

Contr 

NSN     ( 


ates 
aria 
is  n 
e  in 
per 
vari 
ithe 
d  ca 
stic 
g  a 
are 
t  Co 

NO 

act 

ISC  + 


,  fo 
ble 

eces 

the 
dat 
able 
r  a 
se  t 
s . 

case 
calc 
ntro 
PICT 
numb 
NATO 


llcw 

sar 


:S 


DO 


for   storage    in 
inimize    the      number 


aras 

is 

fcla 
hat 

A 

upd 
ulat 
1  Nu 
USE 
er  p 
+  FII 


ed   by    M:DAIECI 

ATES  ' 

to 

programs,    and 

e. 

the 

nk, 

has 
ii  *»» 

ate. 

ed. 

mber 


are    cone a ten a 

' o    the       da 

of    v 

due   to   the    3 


last      field    in      MrDATES. 
"N" ,    or    "*".       "N"    decicts 
net    been      accounted"     for 
shows      that    a      dare   was 
These   are    blanked   after 


ted  i 
rabas 
ariab 
2      fi 

Val 
a  ne 
in 

chan 
stat 


nto 
es. 

111 


ues 
wly 
the 
ged 
is- 


1C4 

N) 


are 


(RCN)        '  XXXXXX-99-9999* 
'XXXXXX-9999-9999 ' 
•  XXXX  XX  -9  9-  A- 9 9  99- 9  99 9 
•9999-XX-XXX-9999' 
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APPENDIX    D 
QDR    PROGRAMS 
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I.    LOGON    MODULE 


***************************  ******************************** 

**  ** 

**  Bate:    22  Nov    1  983                                                                                       ** 

**  Version:    1.0                                                                                                ** 

**  Module    Name:    LOGCN                                                                                    ** 

**  Module    Purpose:    Provide    Password   Logon    Facilities           ** 

**  for   the    QDR   System                                             ** 

**  ** 

**  Module    Interface    Definition  ** 

**  Inputs:    None  ** 

**  Outputs:    C:JULIAN,    C:WHO  ** 

**  ** 

**  Module    Processing   Narrative    Description:  ** 

**  Accepts  The   Password    From   The    Operator,    Val-  ** 

**  idates   The    Password,    and   Calls    The    Necessary  ** 

**  Mcdules  ** 

**  ** 

**      Superordinate   Mcdules:    None  ** 

**      Subordinate    Modules:    SUPMENU1,    MENU1,    LOCKOUT  ** 

**      Author:    R.    G.    NICHOLS  ** 

**  ** 

***************************  ******************************** 

SET    TALK    OFF 

SET    BELL    CFF 

SET    COLOR    TO    112,3 

SET    EXACT    ON 

SET    COLON    OFF 

STORE    T    TO    V:CONTINUE 

*****      Accept   ID   of    Person    Logging   On   To   The   System 

DO    WHILE    V:  CONTINUE 
ERASE 

STCRE    *  '     TO    C'WHO 

a)     10,29    SAY     ■  ENTER    YOUR    ACCESS    I.D.' 
a)    11,37    GET    C:WHO 
READ 

STCRE    !  (C:WHO)    TO    C:WHO 
IF    C:WHO    =    'QUIT' 

QUIT 
ENCIF 

*****      validate    ID    To   See   If    A   Valid    User    Is    Legging   On 

USE    D:TECHCODE    INDEX    D:TECH 

FIND    SC:WHO 

DO    WHILE    #    =    0 

a)    13,28    SAY    'ACCESS    I.D.     NOT    ON    FILE' 

3)     14,33    SAY    'PLEASE    REENTER* 

STCRE     '  '     TC    C:WHO 

3     11, 37    GET    C: WHO 

REfiD 

STCRE    • (C: WHO)     TO    C:WHO 

IF    C: WHO    =     'QUIT' 
QUIT 

ENEIF 

FIND    SC:WHO 
ENDDO 
STORE'   F    TO    V:  LOGGED 
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*****   check  To  See  If  Previously  Logged  On 

IF    LOGGED   <>     •     ' 

i     16,28    SAY    'USER    CURRENTLY    LOGGED    ON1 

3     17,32    SAY    'LOGON    TERMINATED' 

5)    23,0      SAY    •      • 

STORE  T  TO  V: LOGGED 
ENEIF 

*****  Allow  Three  Attempts  to  Enter  The  Correct  Password 

IF     .NCT.     VrLOGGED 

STORE    2    TO    V: ATTEMPTS 

9    16,30    SAY    'ENTER    YOUR    PASSWORD' 

a     17,30    SAY    '     FOLLOWED    BY    <CR>' 

SET    CONSOLE    OFF 

a     19,35    SAY    '      ' 

STORE    T    TO    V:TBUE 

DO    WHILE     V:TRUF 

STCRE     '  '    TC    V:PSWD 

ACCEPT    TO    V:ESWD 

IF    V:ATTEMPTS    =    0     .AND.     PSWD    <>    V:PSWD 
SET    CONSOLE    ON 

*****      if   Three    Unsuccessful    Passwords    Are    Entered,    Call 
*****      pcr    system  Lockup  Prcgram 

DO    C:LOCKCUT 

ELSE 

IF    PSWD    <}    ViPSWD 

STORE    V:ATTEMPTS-1    TO    V: ATTEMPTS 
3    21,27    SAY     'INCORRECT    PASSWORD    ENTERED' 
a    19, 35    SAY     '     '+    CHR  (7) 
ELS  E 

STORE    F    TO    V:TRUE 
ENDIF 
ENDIF 
ENEDO 

SET    CONSOLE    ON 
REEL    LOGGED    WITH    •  *' 
USE 

SET    EXACT    OFF 
RELEASE    ALL    LIKE    V:* 

*****      If   Either   Supervisor    is    Logging   On    The    System   Call 
*****      pcr    supervisor   Menu    To    Be    Displayed    Otherwise 
*****      Display    General   User    Menu 

IF    C:WHO    ='000C    .OR.     C:WHO='0001' 

DO    C:SUPMENU1 
ELCE 

~~DO    C:MENU1 
ENEIF 

STORE    T    TO    V: CONTINUE 
*****      Allow  The   Logged   User   To   Logoff 

USE    D:TECHCODE    INDEX    D:TECH 

FIND    SC:WHC 

IF    #    =   0 
ER  ASE 

3     10^32    SAY    'LOG    OFF    FAILU  RE  •  +CHR  (7) 
a     11,27    SAY    'CONTACT    SYSTEM    SUPERVISOR' 
a    23,26    SAY    'STRIKE    ANY    KEY    TO    CONTINUE     • 
WAIT 

EL  CE 
'  "reel  LOGGED    WITH    '     ' 
USE 
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*****   Clear  The  Screen,  Read  The  Clock  And  Display  The 
*****   Legged  Off  Message  and  The  Time 


137, 
195 


22,     13,    240,; 


ER  ASE 

STORE    «    "     TC    V:DUMMY 
FCKE    61440,     180,    44,     205,    33, 
137,    14,     15,    240, 
SET   CALL    TO    61440 
CALL    V: DUMMY 

STORE    STR (PEEK(61456)  ,2)     TO    V:HOUR 
STORE    STR(PEFK  (61455)  ,2)     TO    V:MIN 
STORE    STRJPEEK]614 54) ,2)     TO    V:SEC 
IF    $(V:  HOUR,1,T)="     " 

STORE    "0"    +$  (V:  HOUR, 2,1)     TO    V:HOUR 
ENDIF 
IF    S(V : MINe  1,1) =  "     " 

STORE    "0"+$ (V:MIN,2,1)     TO    V:MIN 
ENDIF 
IF    $(V: SEC.  1,1) ="    » 

STORE    "0n  +  $  (V:SEC,2,  1)     TO    V:SEC 
ENDIF 

STORE    V:HOU5   ♦  ":"-♦■  V  :  MIN  +  "  :  "  +  V :  SEC   TO    M:TIME 
i       8,30    SAY     "LOG    OFF    COMPLETED    AT' 
3    10,36    SAY    iv.:TIME 
RELEASE    ALL 
STORE    T    TO    V:CONTINUE 
ENEIF 
ENEIF 

3     22,28    SAY     'PRESS    ANY    KEY    TO    CONTINUE     ' 
WAIT 
USE 
ENDDC 


***** 
***** 


NOTE:      This  Prcgram   Will   Continue    To    Accept    Leg 
Until    The   Quit    Command    Is    Entered 

*****    £NC    0F    PROGRAM 


ons 
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II.     LOCKOUT 


*********************************************************** 
**  ** 

**  Date:    22  Nov    1 983  ** 

**  Version:    1.0  ** 

**  Module    Name:    LOCKOUT  ** 

**  Module    Purpose:    Ic   Lock    The   System  After    An    Illegal      ** 

**                                            Logon   Attempt  ** 

**  ** 

**  Module   Interface  Definition                                                             ** 

**             Inputs:    None  ** 

**             Outputs:     None  ** 

**  ** 

**  Module    Processing   Narrative    Description:  ** 

**  This    Program   Will    Display    An   Illegal   Logon  ** 

**  Message   and  Will    Sound   The   Buzzer  ** 

**  ** 

**      Superordinate    Modules:    LOGON  ** 

**      Subordinate    Modules:    None  ** 

**       Author:    R.     G.    NICHOLS  ** 

**  ** 

***************************  ******************************** 

SET    TALK    OFF 
SET    CCLCB    TC    4,4 
STORE    T    10    V:CONTINUE 
STORE    T    TO    V:TOGGLE 

*****      clear  The   Screen   and    Display   The    Illegal    Access 
*****      Message 

ERASE 

DO    WHILE    V:CONTINUE 
STORE    5    TO    V: INNER 
DO    WHILE    V:INNER    >    0 
IF    V:T0GGLE 

2    10,29     SAY     'ILLEGAL    ACCESS    ATTEMPT' 
2    21,0     SAY     '     '     «■    CHR  (7) 
ELSE 

2    10,29    SAY     •  ' 

£    21,    0    SAY     •    ' 
ENDIF 

STCFE    V:INNER-1    TO    V:INNEB 
ENDDO 
IF    V:TCGGLE 

STOEE    F   TO    V:TOGGLE 
ELSE 

STOEE    T   TO    V:TOGGLE 
ENDIF 
ENDDO 

*****    note:    The    System    Must    Be    Rebooted    To    Exit    From 
*****  ^n    illegal   Access    Attempt 

*****    ENE    0F   pBOGRAM 
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III.  MAIN  PROCESSING  MODULE 


***************  ******************************************** 

**  ** 

**  BATE:     15   NOVEMBER    1983  ** 

**  VERSION:    1.0  ** 

**  MODULE    NAME:    MENU1  ** 

**  MODULE    PURPOSE:     PROVIDE    THE    USER    A    MENU    OF    ALL  ** 
**                           PROCESSING    OPTIONS    AVAILABLE    TO    HIM/HER    IN             ** 

**                          THE    QDR    SYSTEM.  ** 

**  MODULE    INTERFACE    DEFINITION  ** 

**             INPUTS:    C:WHO  ** 

**               OUTPUTS:     C:JULIAN  ** 

**  MODULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**  DISPLAYS     ALL    PROCESSING    OPTIONS     AVAILABLE    TO       ** 

**  THE    USER.     UPON    USER    SELECTION.     CALLS    THE  ** 

**  APPROPRIATE    MODULE    FOR    CONTINUED    PROCESSING  ** 

**  ALLOWS    USER    TO    EXIT    FROM    THE    QDR    SYSTEM.  ** 

**  ** 

**       SUPERORDINATE    MODULES:     LOGON  ** 

**       SUEORDINATE    MODULES:    OP  EN, CLOSE , UPDAT , LTR ,RPTMENU,  ** 

**  QUERY  ** 

**  .    AUTHOR:    J.G.     BOYNION    &     R.G.     NICHOLS  ** 

**  ** 

*********************************************************** 
*****    THIS    SECTICN    ACCESSES    THE    SYSTEM    DATE 

STORE  TO    V:DUMMY 

POKE    61440,     180,42,     205,    33,    137,    22,     13,    240,    137,; 

14,    15,    240.    195 
SET    CALL    TO    61440 
CALL    V:DUMMY 

STORE  PEEK(61454)  TO  V:MM 
STORE  PEEK(61453)  TO  V:DD 
STORE    PEEK(61456)*256+PEEK (61455) -1900    TO    V:YY 

*****    THIS    SECTICN    CCNVERTS    THE    SYSTEM    DATE    TO    A    JULIAN    DATE 

DO    CASE 

CASE    V:MM   =    0  1 

STCRE    V:DD    TO    V:DAY 
CASE    V:MM  =    02 

STCRE    V:DD    ♦    31    TO    V:  DAY 
CASE    V:MM   =    03 

"STCRE    V:DD    +    59    TO    V:DAY 
CASE    V:MM   =    04 

STCRE    V:DD    +    90    TO    V:  DAY 
CASE    V:MM  =    05 

STCRE    V:DD    +     120    TO    V:DAY 
CASE    V:MM   =    06 

STCRE    V:DD    +     1 51    TO    V :DAY 
CASE    V : M M   =    0  7 

~STCRE    V:DD    +     181    TO    V:DAY 
CASE    V:MM   =    08 

STCRE    V:DD    +    212    TO    V:DAY 
CASE    V:MM   =    09 

STCRE    V:DD    •••    243    TO    V:DAY 
CASE    V:MM   =    10 

STCRE    V:DD    +    273    TO    V:DAY 
CASE'   V:  MM   =     11 

STCRE    V:DD    +     304    TO    V:DAY 
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C  A  SE    V :  M  M   =    12 

STCBE    V:DD    +    334    TO    V:EAY 
ENDCASE 

IF    INT  (V:YY/4)  *4    =    V:YY    .AND.     V:DAY    >=    60 
IF    V:MM  =    02     .AND.    V:DD=    29 

STOFE    V:DAY    TO    V:DAY 
EL  SE 

STOFE    V:DAY    +     1    TO    V:DAY 
ENEIF 
FNDIF 

STORE    V:YY    *    1000    ♦     V:DAY    TO    V:JULIAN 
STORE    STB (V:JULIAN,5)    TO    C:JULIAN 
RELEASE    ALL    EXCEPT    C :* 

STORE    T    TO    V:CONTINUE 

DO    WHILE    V:CONTINUE 

ERASE 

SET    TAIK    OFF 

STORE    ■     '    TO    V: CHOICE 

TEXT 


WELCOME  TO  THE  QDR  AUTOMATED  TRACKING  SYSTEM 


1  -  OPEN  NEW  RECORD 

2  -  CLOSE  RECORD 

3  -  UPDATE  RECORD 

U    -    ORIGINATE    LETTER 

5  -     REPORT    GENERATION 

6  -    QUEBY 

7  -     EXIT    FROM    THE    SYSTEM 


ENTEE    YOUR    CHOICE 


ENDTEXT 

2    19,30    GET    V:CHOICE 

READ 

1 

IF  V:CHCICE    >=    1     .AND, 


V: CHOICE   <=    7 


DO    CASE 

CASE 

V:CHOICE=    1 

RELEASE    ALL    EXCEPT 

DO    C: XCPEN2.PRG 

CASE 

V:CHOICE=    2 

RELEASE    ALL    EXCEPT 

DO   C:CLCSREC.  PRG 

CASE 

V:CHOICE=    3 

RELEASE    ALL    EXCEPT 

DO    C: XUEDAT.PBG 

CASE 

V:CHOICE=    U 

EELEASE    ALL    EXCEPT 

DO   C:LTB.PBG 

CASE 

V: CHOICE=    5 

BELEASE    ALL    EXCEPT 

DO    ClBPTMENU 

CASE 

V:CHOICE=6 

RELEASE    ALL    EXCEPT 

DO    CtQUEBY.PRG 

CASE 

V: CHOICE=7 

RELEASE    ALL    EXCEPT 

RETURN 

EN-ECASE 

C:* 


C:* 


C:* 


C:* 


C:* 


C:* 


C:* 
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STOEE    T   TO    V:CONTINUE 
STORE     ■    •     TO    V: CHOICE 
ELSE 

3     21,20    SAY    •     <    PLEASE    ANSWER    WITH       1     -    7    ONLY    >' 
3    23,20    SAY    «<PRESS    ANY    KEY    TO    CONTINUED 
WAIT 
ENDIE    <V:CHCICE> 

ENDDO    <V:CONTINUE> 
*****    ENC    OF    PROGRAM 
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IV.  NEW  CASE  INPUT  MODULE 


*** 
** 
** 
** 

** 

** 
** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
*** 


************************  aft********************* 


DATE:    1 
VERSION 
MCDUIE 
MODULE 
MODUIE 
INPU 
OUTP 


MODULE 


8   NOV    1 983 
:    1.0 
NAME:    OPE 
PURPOSE: 
INTERFACE 
IS:    C:WHO 
UTS:     M:CA 
DATA 
PROCESS  IN 


ROMPTS  TH 
F  368  IN 
ALIDATION 
S  BASED  U 
S  MODIFIE 
RE   CAPTUR 


N 

NEW  QDR  CASE  CREATION 

DEFINITION 
,   C:JULIAN,    V:JULDATE 
SE.  V:MM,  V:DD,  V:YY,  AND  ALL 

ELEMENTS  IN  OPEN1  AND  OPEN2. 
G  NARRATIVE  DESCRIPTION: 

E  USER  FOR  INPUT  OF  ALL  DATA 
CRDER  TO  CREATE  A  NEW  QDR  CAS 
CF  DATA  ITEMS  OCCURS  UPON  IN 
PCN  CURRENT  GE  TIMESHARE  VALI 
D  BY  FMSO  TECHNICAL  BRANCH.  D 
ED  FOR  MANAGEMENT  STATISTICS. 


*  *******  ** 
** 
** 
** 
** 
** 
** 
** 

OF  THE  ** 
** 
** 
** 

FROM  ** 
E.  ** 
PUT  AND  ** 
DATION,  ** 
ATES 


** 

** 

** 

DULES:     MENU1  ** 

IES:    OJULIAN,    XDBHNDLR  ** 

NION  ** 

** 

******************************************************** 


SUPEROR 
SUECRDI 
AUTHOR: 


DINATE    MO 

NATE     MODU 

J.G.     BOY 


STORE    T    TO    C:TRUE 
DO    WHILE    0:TRUE 
ERASE 

STORE     ■     • TO    0: CHOICE 

TEXT 


*****    0PEN    NEW    CASE    ***** 


THIS    PROGRAM    ENABLES    YOU    TO    OPEN    A 
NEW    QDR    CASE 

1  -    CONTINUE 

2  -    RETURN    TO    MENU 
ENDIEXT 

3    20,30    SAY    '     '    GE!    0:CHOICE 
READ 

DO    WHILE    C:CH0ICE    <>    'V     .AND.     0:CH0ICE    <>     «2» 
2    23,20    SAY    'ANSWER    WITH    A     1    OR    2    ONLY' 
a)    20,30    SAY    ■      ■    GET    0:CHCICE 
READ 
ENDDO 
ERASE 
IF    C:CHOICE    =     «2' 

RELEASE    ALL    EXCEPT    C:* 
RETURN 
ENDIF 

*****    INITIALIZE    MEMORY    VARIABLES 

STORE     ■  •     TO    0:KEY 
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STOBE 
STORE 
STOEE 
STOBE 
STOBE 
STOBE 
STOBE 
STOBE 
STOBE 
STORE 
STOBE 
STOBE 
STOBE 
STOBE 
STOBE 
STOBE 
STOBE 
STORE 
STOBE 
STOBE 
STOBE 
STOEE 
STOBE 
STOBE 
STOBE 
STOEE 
STOFE 
STOEE 
STOBE 


•TO    M:CASE 
»     TO    M:COG 
•     TO    M:SM 
'     TO    M:CAT 

«     TC    M:UIC 
0   TO    M:  QTYBEC 
0   TO     M: QTYINS 
0    TO     M:QTYEEF 
0   TO    M:QTYSTK 


TO    M:NOMEN 


TC   M:OPEN 
TC    M:OVEB 


TO    M:NUM 


'     TO    M:REPCON 
'     TC    M:FSCM 

•    TO    M:TIME 

'     TO    M:MFG 
•    TO    M:LOT 

•  TC    M:ITEM 

•     TC    M:OTF 
■     TC    M:GCV 

•     TO    M:DOCNO 
•     TO    M:EEF 

•  TO    H: WNTY 

•  TC    0:DDATE 

•     TO    0:  MODEL 

•  TC    OtDEFSEB 

•     TO    0:HASSY 
'    TO    OtSASSY 


*****  THIS    SEQUENCE    CALCULATES    THE    UPPER    AND    LOWER    YEARS 

*****  FCE    input     AND    IS    BASED    ON    THE    CURRENT    JULIAN    DATE 

*****  C:JULIAN.       0:LLIMIT=    YEAR    MINUS    TWO    YEARS 

*****  o:ULIMIT    =    YSAE    PLUS    ONE    YEAR 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


$  (C:  JULIAN, 1  .2)     TO    TEMPI 
VAI(TEMPI)     TO    TEMP1A 
VAI  («  2')     TO    LOW 
VAL  (•  V)     TO    HIGH 
TEKP1A-L0W    TO    IIMT 
TEKP1 A+HIGH    TO    ULMT 
STE(LLMT,2)     TO    CrLLIMIT 
STE(UIMT,2)    TO    CrOLIMIT 


EELEASE    TE 


(UIMT, 
i]MP1#T 


EMP1 A,LOW,HIGHrLLMT,ULMT 


*****       START   OF    THE    INPUT    FOR    THE    NSN 

STORE    »  •     TC   0: BCATE 

STORE    T    TO    0:ANSWER 

DO    WHILE    0:  ANSWER 

3    5r20    SAY     *********    ENTER    DATA    FOR    THE    NEW    CASE    ********* 

2    6,20    SAY     *********  FROM         SF    368  ********* 

STORE    T    TO    0:RDATET 
DO    WHILE    0:  EDATET 

3    8,20    SAY     'DATE    RECEIVED    BY    FMSO         MMDDYY'     ; 

GET    0:RDATE    PICTURE    '9999991 
READ 
IF    J(0:EDATE,  1  ,  2)     <«01»     .OR.    $  (0  :  RDATE,  1  ,2)     >«12'; 

.0R.$(0:  EDATE,3,2)      <'01'     .OR.    $  (0  :  RDATE,  3  ,  2)     >    '31' 
"       S  (0:RDATE,5,2l 


.OR.    $ (0:RDATE,5f2)      <    0:LLIMIT    ; 
.OR.    $ (0  :RDATE,5,2i     >    C:ULIMIT 

3    23,30    SAY    'DATE    OUT    OF    RA 


ANGE' 


ELSE 

. STORE    F    TO    OcBDATET 
ENDIF 
ENDDO    <0:RDATE> 
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a    23,30    SAY    •  ■ 

*****    ENTER    THE    CALL    TC    C:OJULIAN    TO    CHANGE    MMDDYY    TO 
*****    JUHAN   FORMAT,     STORE    TO    M:BDATE    THEN    RELEASE    0:RD.ATE 

STORE    VAI($  (0:  RDATE,  1,2)  )     TC    V:MM 

STORE    VAI    I  (0:  RDATE,  3,2)  '     TO    V:DD 

STORE    VAL($  (0:  RDATE,  5,2)  )     TO    V:YY 

DO    C:CJUIIAN 

STORE    V:JULDATE    TO    H:BDATE 

RELEASE    ALL    LIKE    V:* 

RELEASE    CzRCATET 

STORE    T    TO    C:CAT 

EO    WHILE    0:CAT 

a    10,20    SAY    'CAT' 

a)    1C,50    SAY    '     •     GET    M:  CAT    PICTURE    '9' 

READ 

IF    M:CAT   ='1'     .CB.    M:CAT    ='2' 
STOBE    F    TO    0:CAT 

ELSE 

a    23,20    SAY     •    1    OR    2    ONLY' 

FNDIF 
ENDDO    0:CAT 

2    23.20    SAY    «  • 

RELEASE    C:CAT 


STORE    T    TO    C:C0G1 
STORE    T    TO    C:COG2 
EO    WHILE    0:C0G1     .OR 
DC    WHILE    0:COG1 


C:COG2 


S    12,20    SAY    'COG' 

9    12,50    SAY    '      •       GET     M:COG    PICTURE    '9X' 

READ 

IF    $  (HI  *  C  OG    2     1)='      ' 
2)    23,20       SAY    '     NO    BLANKS    IN    2D    POSITION' 
ELSE 

STORE    F    TO    C:C0G1 
STCRE     !   (M:CCG)     TO     M:COG 
ENDIF 
ENDDO    <0:C0G1 > 
a)    23,20    SAY    •  • 

*****    CHECKS   THAT    COG    IS    VALID    IN    CURRENT    COG    TABLE...     MUST 
*****    BE    VALID    TO    CONTINUE 

USE    D:COG    INDEX    D:COGS 
FIND      SM:COG 
IF    #    =    0 

a)    23,10    SAY    '     COG    INVALID    -    ENTER    CORRECTED    ENTRY' 
STORE     T    TO    C:C0G1 
ELSE 

STORE    F    TO    C:COG2 
EKDIF 
ENDDO    <0:C0G1     5    0:CCG2> 
RSLFASE    0:C0G1,    0 : CCG2 
a)    23,  10    SAY    '  • 

a)    14,20    SAY    'NSN  • 

a)    14,50    SAY    •     'GET    0:KEY    PICTUBE    '9  999- XX-XXX-99  99  • 

BEAD 

STOBE    T    TO    0:NATOT 
DO    WHILE    C:NATOT 

IF    $(0:KEY,5,1)      =•     •     .OB.     $(0:KEY,6,1)     =     '     ' 

3    23,20    SAY     •     NATO    CODE    MAY    NOT    HAVE    BLANKS' 
5)    14,50    SAY     '     '    GET    0:KEY    PICTURE    '  999  9-XX-XXX-  999  9' 
BEAD 
ELSE 
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-     I 


9    23,20    SAY    • 
STORE   F    TO    0: NATOT 
ENDIF 

ENDDC       <0:NAT0T> 

RELEASE    C:NATOT 

a    23,20    SAY    ' 


STORE    T    TO    C:FIINT 
EO    WHILE    0: FIINT 

IF    $  (0:  KEY,  7-1) 
.CR.    $(0:KEY, 
a)    23,40    SAY    • 
a)    14,50    SAY     ■ 
READ 
EISE 

a)    23,40    SAY    • 
STORE   F    TC   0: 
ENDIF    FIINT 
ENDDC       <C:FIINT> 
RELEASE    0:FIINT 
a)    23,20    SAY    • 


.OR.    $  (0:KEY,8,  1)  =• 
9,1)='     ' 

NC    BLANKS    IN 
'    GET    0:KEY 


FIINT 


THE    FIRST    3    POSITIONS' 
PICTURE    ■ 9999-XX-XXX-9999' 


STORE 

a  18 

19 
20 
22 
23 


•  t 


i 

20 
20 
20 
25 
40 


•    TO 

SAY 

SAY 

SAY 

SAY 

SAY 


i:  REPLY 

VERIFY    ABOVE    INFORMATION     • 
YOU    MAY    NOT    CHANGE    IT    AFTER    THIS' 

WITHOUT    STARTING    OVER    AGAIN' 
1     -    CONTINUE       2    -    CHANGE       3    -    EXIT 
•     GET    C:REPLY 


READ 
IF    0: 
ST 
ER 

a 

RE 
ELSE 
IF 


EI 


EN 
ENDIF 
ENDDC 


REPIY      =    • 1 ■ 

CRE    F  TO   0: ANSWER 

ASE 

23,20  SAY     'SEARCHING    FOR    ANOTHER    CASE    WITH    THIS    NSN' 

LEASE  0:RDATE 

0:REPIY    =     '3« 

RELEASE    ALL    EXCEPT    C :* 

RETURN 
SE 

CLEAR   GETS 

a    22,25    SAY    •  ' 

a    23,25    SAY    •  • 

DIF 

0:  ANSWER 


STORE    $<0:KEY,1,4)     ♦  $  (0 :  KEY  ,6  ,  2)     +    $  (0:  KEY  ,  9  ,  3)  ; 
♦    $(0:KEY, 13,4)     TO    M:  KEY 

STORE    M:KEY    TO    M:NSN 

*****       M:TYPE    CODES    TELL    THE    DBHANDLE3    WHAT    TC    DO    WITH 
*****       THE    PARAMETERS 

STORE     '  1A'     TO    M: TYPE 
DO    C:XCBHNDLR.  PRG 

*****    CONTROL    RETURNS    TO    THIS    PROGRAM    NOW 

*****    I?    MjTYPE    =    9     THEN    THERE    IS    NOT    A    CURRENTLY 

*****    OPEN    FILE 

IF    M:TYPE='9« 

STORE  T  TO  OtONONE 
ELSE 

STORE  F  TO  O'.ONONE 

STCRE    H:REC1     TO    0:FREVREC 

STORE    T    TO   0: WHICH 
DC    WHILE    0:WHICH 
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STCRE    MI'     TO    M:TYPE 
DO    C: XDBHNDLR. ERG 

IF    M:NSN    <>    M:KEY    .OR.    ECF 
STCRE    0:PREVFEC   TO    M:REC1 
STORE     • 1H«     TC    M:TYPE 
DC    C:XDBHNDLB.PRG 
STORE    F    TO    C:WHICH 

*****    THESE    MUST    BE     RELEASED    OR    ELSE    TOO    MANY    VARIABLES 
*****    will    EE    ASSIGNEE     (IE    >64) 

RELEASE    M:UI,M:UPRC,M:WUC,M: ACTDISP, M: ACTPT , ; 
M: DETAILS, M:DEFV#H:DEPR,; 
H:09C#H:DOC#H:OBG 


STORE 

STCRE 
STCRE 
STORE 
STCRE 
STCRE 
STCRE 
STORE 
STCRE 
STORE 
STCRE 
STORE 
STCRE 
STORE 
STCRE 


•    TO     M:  DATES 
TO    M:CLCSE 

•  TO     M:UIC 

•  TO    M:FSCM 

'  TO 
TO    M  :REOPEN 

1  TO 
TO    M:SCRDAT 

1     TO 


M 


TO    M 
MFG 


NUM 


M:DOCNO 


M:REPCON 


0 
0 
0 

0 


TO 
TO 
TO 
TO 


•    TO    M:TIME 


MrQTYINS 
M:QTYREC 
M:QTYSTK 
M:QTYDEF 


ELSE 

STCRE     M:REC1    TO   0:PREVREC 
ENEIF 

ENDDO    <0:WHICH> 
ENDIF    <OPENFILE> 

STCRE    M:CASE    TO    0  :CCASE 

*****    SAVE    THE    CASE     EEOM    THE    OEENFILE    FOR    FUTURE    COMPARISON 
*****    G0    TO    THE    CLOSED    DATA    EASE    AND    CHECK    FOR    CASE    WITH 
*****    THAT    NSN 

STORE    '3  A'    TO    M:TYPE 
EO    C:XEBHNDLE.PRG 

*****    CCNTEOL    RETURNS    TO    THIS    PROGRAM 

*****    IF    M:TYPE    =    9    THEN    THERE    IS    NOT    A    CASE    IN    THE    CLOSED 

*****    fue 


IF    M: TYPE- 
STORE    T 

ELSE 

STORE    F 


•9' 

TO    0;CNONE 

TO    0:CNONE 


STORE    M:REC1     TO    OrFREVREC 


STCRE    T    TO    0:WHICH 
DO    WHILE    0: WHICH 

STCRE    '31'    TO    K:TYPE 

DO    C: XDBHNDLR. ERG 

STCRE    M:REC1     TC    0:PREVREC 

IF    M:NSN    <>    M : KEY    .OR.    ECF 
STCRE    0:PREVEEC   TO    M:REC1 
STORE    «  3H'     TC    M:TYPE 
'      DO    CtXDBHNDIE.  PRG 
STORE    F    TO    C:WHICH 
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*****    THESE    MUST    BE    EELEASED    OB    ELSE    TOO    MANY    VARIABLES 
*****    HIIL    EE    ASSIGNEE     (IE     >64) 

RELEASE  M:UI,M:UPRC,M:WUC,M: ACTDISP, M: ACTPT , ; 
M: DETAILS. H:DEFV-fl:DEFR,M:090.M: DOC,; 
M:OEG,M:REPLY,M: ACTTKN,M: STATUS" 
M:CAUSEC,RETC 


/  t 


STORE 

STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STCRE 


♦  « 


'    TO    M:DATES 
■    TO    MrCLCSE 
•     TO     M:UIC 
1     TO     M:FSCM 

»     TO    M:NUM 

•  TO    M:MFG 
•    TO   M :REOPEN 

•  TO    M:DOCNO 
«    TO    M  :SCRDAT 

•  TO    M:REPCON 
■     TO    M:TIME 


i  . 


STORE     0  TO  M:QTYINS 

STCRE    0  TO  K:QTYREC 

STORE    0  TO  M:QTYSTK 

STCRE    0  TO  M:QTYDEF 

ELSE 

STCRE     M:REC1    TO   0:PREVREC 
ENEIF 

ENEDO    <0:WHICH> 
STCRE    M:CASE    TO    OrCCASE 
ENDIF    <CLOSEFILE> 

*****    COMPARE    THE    VALUES    OF    CASS    NUMBER    FROM    OPEN    AND 
*****    CLCSE.    AND    USE    THE    LARGEST    ONE    FOR    SUFFIX 
*****    CALCULATION 

IF    C:OCASE    >    0:CCASE 

STCEE    OrCCASE   TO    M:CASE 

RELEASE  0:CCASE,0:OCASE 
ELSE 

STCRE    0:CCASE    TO    M:CASE 

RELEASE  0:OCASE,0:CCASE 
ENDIF 

*****    CNIY    GO    INTO    THE    NEXT    IF-ENDIF    WHERE    THE    NSN    WAS    NOT 
*****    fcUND    IN     EITHER    THE    OPEN    OR    THE    CLOSED    FILE 

IF    OrCNCNE    .AND.     O'.CNCNE 

ELSE 

*****    CALCULATE    SUFFIX    FOR    THE    ADDITIONAL    CASE    FOR    THE    NSN 


STCRE    $(M:CASEr7,1)     TO    0:LAST 
IF    0:LAST    =    ■      ' 


ELSE 


STORE    $(M:CASE,1,  6)     +    »  A«     TO    M:CASE 


STORE     RANK(C:LAST) 


ENDIF 


STORE    CHR(C:SUFF_ 
STORE    $(M:CASE,1,6 
ENEIF 


+1    TO    0:SUFFIX 
10    OrLETTER 
+    0:LETTER    TO    M:CASE 


ENDIF 

RELEASE    C: L AST, 0 :L ET TEE, 0: K E Y, 0 : PRE V R EC, 0: ONO NE, 0:CN ONE, 0: WHICH 

ERASE 
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*****       START   OF     NEW    C2SE    DATA    ENTRY 


2 
a 
2 

2 
a 

2 


0,1 

i  /  * 

2,2 

3,2 

4,2 
5^2 


a)  6,2 

3  7,2 

2  8,2 

a  9,2 

2  10,2 

a)    11,2 

a  12,2 
2  13,2 

a    14,2 

2    15,2 

2    16,2 

2    17,  2 

2  18,2 
2  19,2 
2  20,2 
2    21,2 

2    1,38    SAY 

2   2,38    SAY 

CLEAR    GETS 


SAY 

SAY 

SAY 

SAY 

PICT 

SAY 

SAY 

GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 


»SF 

•5. 
i 

i 

URE 

MA 

•3. 
i . 

*:R 

'4. 

C:D 

•6. 

ft:N 

•7. 

K:F 

•8. 

M:M 

•9. 

M:L 

•  10 

M:N 
i 

M:D 

•11 

M:I 

•12 

M:0 

•13 

M:0 

•14 

H:G 

•15 

M:Q 

'  16 
i 

t 

• 


368' 

NSN 

CATEGORY 
SMIC 
•  AX' 
UIC 
REJCRT    CONTROL 


EPCON    PICTURE 

DATE  DISC 
DATE    PICTURE 

NOMENCLAT 
OMEN    PICTURE 

FSCM 
SCM    PICTURE    • 

MFG.  PART 
FG    PICTURE    'X 

SEEIAL/LO 
OT    PICTURE    »X 

CONTRACT/ 
UM    PICTURE    'X 

DOCUMENT 
OCNO    PICTURE 

ITEM 
TEH    PICTURE    • 

DATE  MFG/ 
VER    PICTURE    • 

OPN    TIME 
TF    PICTURE    'A 

GOV  FURNI 
OV    PICTURE    'X 

QTY:  REC/ 
TYREC  EICTURE 
A1.  TYPE/MODE 
A2.  SERIAL  NO 
B.        NEXT    HIGH 

SUE-ASSEM 


'XXXXXX-9 
OVERED  M 

•XXXXXX' 
URE 
•XXXXXXXXX 


9-9999' 
MDDYY 


XXXXX 

NUMB 

XXXXX 

T/BAT 

XXXXX 

PO 

XXXXX 

NUM 

'XXXX 

N 

A' 

REP/O 

99999 

AT    EA 

XXXX' 

SHED 
i 


X' 

ER 

XXXXX 
CH 
XXX' 

-99-A 
EER 
XX-99 
OR    0 

VHL 
i 

ILURE 
MATL 


xxxxxxxxxx 

<0> 

<0> 

XXXXXXX' 
<0> 

<0> 

-xxxx-xxxx 

<0> 

99-9999' 
<0> 

<0> 

<0> 

<0> 


INSF/DEF/STK 

•999999' 

L/SERIES  <0> 

MBER  <0> 

ER  ASSY  <0> 

BLY  <0> 


GET    M:SM    ; 
GET    M:UIC 


GET  C: MODEL 

GET  0:DEFSER 

GET  0:HASSY 

GET  C:SASSY 


S(M:KEY,  1.4) +«- •+$  (M: KEY, 5, 2) +'-' +$ (M: KEY, 7,3) 
♦  '-• +S(M:KEY,10 ,4) 
M :  C  AT 


STORE    T    TO    C:CORRECT 
CO    WHILE    0: CORRECT 

IF    M:CCG    =     '1H»     .OR.     M:COG    =    «2H'     .OR.     M:COG    =    '7H' 
STORE    T    TO    0 :SMIC1 
DC    WHILE   0:SMIC1 

2    3,2    SAY    '  SMIC 

M:SM     PICTURE     'AX' 
READ 

STCRE     !  (M:  SM)     TO    M  :SM 
IF    $(M:SM,1,1)     =    'X'     .OR.     $(M:SM,1,1)    =     'L 

STORE    F    TO    0:SMIC1 
ELSE 

2    23,30    SAY    «X    OR    L    ONLY' 
ENDIF 
ENDDC    <C:SMIC1> 
ENDIE 

RELEASE       0:SMIC1 
2    23,30    SAY    '  • 


'    GET; 


STORE    T    TO    C:UIC1 
CO    WHILE    0:UIC1 

a    4,35    SAY     •     • 


GET    M:UIC    PICTURE    'AXXXXX' 
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OR.; 
OF.  ; 


STCRE     !  (M:UIC)     1C    M:UIC 
REAE 

IF    f(M:UIC,1,1)     =    '     ■     .OR.    $  (M  :  UIC,  2,  1)  =    ' 
$(M:UIC,  3,  1)  =    '     '    .OR.    $  (M: UIC,4,1)  =    ■    ■ 
$(M:UIC,  5,  1)  =    •     •    .OR.    $ (M:UIC,6,1) =    '    ' 
2    23,20    SAY     '    NO    3LANKS    ALLOWED    IN    UIC 
ELSE 

STORE    F    TO    0  :UIC1 
ENDIF 
ENDDO    <0:UIC1> 

5)    23,20   SAY    ■  ' 

RELEASE    C:OIC1 

*****    REFORT   CONTROL 

*****    5EECRT   CONTROL    KUMBER     (RCN)     FORMAT    CHANGED    DUE    TO 

*****    MSG    FE0M    FMSO    NCV83 

*****    0LC:     "XXXXXX-XXXX-XXXX'  NEW:     • XXXXXX-99- 9999* 


a)    5,35    SAY     •     ■ 
REAE 


GET    M:REFCON    PICTURE    • XXXXXX-9 9-999 9' 


***** 


1.TAKE    DATE     10    JULIAN    FORMAT    2.     NUMERIC    DATA 


GET    OrDDATE    PICTURE    '999999' 


STORE    T    TO    C:DDATET 
CO    WHILE    0:  EDATET 

a    6,35    SAY     •    ' 

READ 

IF    C : D E AT E    =    •  ' 

2*23,30    SAY     'MAY    NOT    BE    BLANK  ' 

ELSE 

IF    $(0:  DDATE, 1,2)    <     '01'. OR.    $  (0  :  DDAT  E,  1  ,  2) 
.OR.     $(0: EEATE,3 ,2)     <    '01'  ; 
.OR.     $(0:  EEATE,3,2      >    '31'  ; 
.OR.     $(0: EDATE,5 ,2)     <    0:LLIMIT; 
.OR.     $]0:EEATE,5  ,2)     >    0:  ULIMIT 

a)     23,30    SAY    •     DAIE    OUT    OF    RANGE' 
ELSE 

STORE    F    TO    0:  DEAIET 
ENDIF 
ENDIF 
ENDDC    <0:DEATET> 
a    23,30    SAY    ' 
RELEASE    C:EEATET 


12'; 


*****       CALL    CrOJULIAN    TO    CONVERT    TO    JULIAN    DATE 

STORE  VAI  ($  (0:  DDATE,  1,2)  )  TO  V:MM 
STORE  VAI($  (0:  DDATE,  3,2)  )  TO  V:DD 
STORE  VAI  \$  (0:  DDATE,  5,2)  )  TO  V:YY 
EO    C:CJULIAN 

STORE    V:JULEATE    TO    M:EDATE 
RELEASE    ALL    LIKE    V:* 

STORE    T    TC    C:NOMEN 
EO    WHILE   0:  NOMEN 

a    7.35    SAY     '     'GET    MrNOMEN    PICTURE    ' XXXXXXXXXXXXXXXXXXX ' 

REAE 

IF    $  (M:NOMEN,  1,  1)    =    •     •     .OR.    $  (M :  NOMEN ,  2  , 1)     =    •     '     ; 


$  (M:NOMEN,  1,1)='      '     .OR. 
-OR.    $ (M:N0MEN,3,1)  ='     « 
a    23,30     SAY     '    NO    BLANKS    I 


IN    FIRST    3    POSITIONS' 


ELSE 

STORE    F    TO    0: SOMEN 

ENDIF 
ENDDO    <0:NOMEN> 
2    23,30    SAY    • 
RELEASE    C:NCMEN 

*****       INPUT    FSCM 
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5)      8,35    SAY    ■     '     GET    M:FSCM    FICTURE       'XXXXXX' 
*****    INPUT    MANUFACTUEERS    PART    NUMBER 


5)      9,35    SAY    •     • 
2    10,35    SAY    •    • 


GET    M:MFG    PICTURE    • XXXXXXXXXXXXXXXX ' 
GET     M:LOT    PICTURE    •  XXXXXXXXX' 


*****       INPUT   CONTRACT    NUMBER 

3    11,35    SAY    '     f     GET    M:NUM    PICTURE    ■ XXXXXX-99- A-XXXX-XXXX* 

*****    INPUT    DOCUMENT    NUMBER 


STORE    T    TO    0:UICT 
STORE    T    TO    0:PREFT 
STORE    T    10    0:DOCT 
DO    WHILE    C: DOCT     .OR. 
2    12,35   SAY    •     • 


C  *  UICT 

GET    M: DOCNO    PICTURE    • AXXXXX-9 999-9 99 9' 


BEAD 

IF    M: DOCNO    =    •  • 

STOEE    F    TO    0:EOCT 

STOEE    F    TO    0:UICT 
ELSE 

IF    $(M:  DOCNO,  1,1)     =•     •     .OR.     $  (M  :  DOCNO  ,  2,  1 )  =     •     « 
.OR.     $(M: ECCN0,3 ,1)  =    •     '  J 
.OR.     $(M: DCCN0,4 ,1)     =     «     •; 
.OR.     $(M: ECCN0,5  ,1)     =     '     ' 

2   23,20    SAY    ■    NO    BLANKS    ALLOWED    IN    UIC 
ELSE 

STORE    F    TC   0:DOCT 
ENDIF 
IF    $  (M:DCCNO,12,3)      >'366«; 

.OR.     $(M: ECCNO, 1 2,3)     ■    ■  •  : 

.OR.     $?M: ECCNO, 1  1-4  i     =    '  * 

2      23,50     SAY    'PREP    DATE    OUT    OF    RANGE    • 
ELSE 

STORE    F    TC   0:UICT 
ENDIF 
ENDIF    <ALL    ELANKS> 
ENDDO    <0:DOCT    .AND.     C:UICT> 
RELEASE    C:UICT,0:DOCT 
2    23,20    SAY    ■ 

*****    DOCUMENT     NUMBEB    END 

STORE    T    TO    C:ITEM 
DO    WHILE    0:ITEM 


GET    M: ITEM    PICTURE     ■ A' 

.OR.     M:ITEM    = 


-     i 


2    13,35   SAY    ' 

BEAE 

IF    M:ITEM    =    «N»     .OR.    M:ITEM    =    '0' 
STORE    F   TO    C:ITEM 

ELSE 

3    23,30    SAY    •     USE    N    OR    0    ' 

ENDIF 
ENDDC       <C:ITEM> 

2    23.30    SAY    '  • 

BSLEASE    C:ITEM 
IF    M:ITEM    <>    •     • 

*****    THE    NEXT    FIVE    LINES    CALCULATE    EARLIEST    YEAR    TO    ALLOW 
*****    p0B    OVERHAUL    ENTRY 

STORE  $(C: JULIAN, 1,2)    TO    TEMPI 

STORE  VAI  (TEMPI)     TO    TEMP1A 

STORE  VAL  (•  10")      TO    LCK 

STORE  T2EP1A-L0W    TO    TEMP2 
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STORE    STR(TEMP2,2)     TC    0:TENYRS 

RELEASE    TEMF1, TEMPI A.TEMP2,  LOW 

STORE    T    TO    0:OVEB 

DC    WHILE   0:OVER 

2    14,35     SAY     '    «    GET    M:OVEE    PICTURE    '99999' 

READ 

IF    M:OVER='  ' 

STORE    F    TC    0:OVER 

ELS  E 

IF   $  (M:OVEB,3,3)     >    '365'  ; 

.OR.    $  (M:OVER,  1,2)     <    0:TENYRS     : 

.OR.    $?M:OVER,  1,2)     >    0:OLiaiT 
a    9  1    "pn    q  a  v     lr 


a    23,30    SAY 
ELSE 

STORE    F 
ENDIF 
ENDIF 
ENDDC    <0:OVER> 
S    23,30    SAY     • 
ENDIE 
RELEASE    C:OVER,0:TENYBS 


EATE    OUT    OF    RANGE' 


TO    OcOVER 


STORE    T    TO    C:OTF 
DO    WHILE    0:CTF 

a    15,35    SAY     •    '     GET    M:OTF    PICTURE    'A9999' 

READ 

IF    M:OTF   =     »  ' 

STORE    F    TC   0:CTF 
ELSE 

IE    S(M:OTF,1,1)     =    'N'     .OR.    $(M:OTF,1,1)     ='0«; 
.AND.S  (M:OTE,2,4)     >    '0000' 
STORE    F    TO    0:OTF 
ELSE 

a    23,30    SAY    'USE    N    OR    O    AND    THEN    TIME     (A9999)' 
ENDIF 
ENDIF 
ENDDO       <0:OTF> 

a    23,30    SAY    •  • 

RELEASE    C:OTF 
STORE    T    TO    C:GOV 
CO    WHILE    0:GOV 

3    16,35   SAY 

READ 

IF       M:GOV    = 

STORE 
ELSE 

a    23,30    SAY     'USE    EITHER    Y    OR    N    OR    LEAVE    BLANK' 
ENDIF 
ENDDO    <0:GOV> 

a    23,30    SAY    '  ' 

RELEASE    C:GCV 
STORE    T    TO    C:QTYRECT 
CO    WHILE    0:QTYRECT 


•  '     GET    M: GOV    PICTURE 

•  '     .OR.        M:GOV    =    »Y« 
F    TO    C:GOV 


'X' 

.OR.     M:GOV    =    «N' 


GET    M:QTYREC 


2    17,35    SAY    ' 

READ 

IF    MtQTYREC    <    0     .OR.     M:QTYREC 

a    23,30    SAY     'CUT    CF    RANGE' 
ELSE 

STORE    F    TO    0:QTYRECT 
ENDIF 
ENDDO 

2    23,30    SAY    ' 
RELEASE    C:QTYRECT 
STORE    T    TO    C:QTYINS 
DO    WHILE    0:CjTYINS 

2    17,43    SAY     •/'     GET    M:QTYINS 
READ 


PICTURE  ' 999999' 
>  999999 


PICTURE  '999999' 
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IF    M:QTYINS     <    0     .CB.    M:QTYINS    >    999999 
3    *3,30    SAY     f     CUT    OF    RANGE' 

E ISE 

STORE   F    TO   0:  QTYINS 

ENDIF 
ENDDO    <0:QTYINS> 

3    23  ,30    SAY    •  ' 

RELEASE    C:QTYINS 
STORE    T    TO    CrQTYDEF 
EO    WHILE    0:QTYDEF 

2  17,50    SAY     •/'       GET    M: QTYDEF    PICTURE    '999999' 
READ 

IF    M:QTYDEF    <    1     .CB.    M:QTYDEF    >    999999 
3    23,30    SAY     •    DEFICIENT 
OUT    CF    FANGE' 
ELSE 

STORE    F    TO    0:CTYDEF 
FNDIF 
ENDDO    0:QTYEEF 
RELEASE    C:QTYDEF 

3    23.30    SAY    •  ' 

STORE    T    TO    OrQTYSTK 
DO    WHILE    OcQTYSTK 

3  17,57    SAY       '/'     GET    M: QTYSTK       PICTURE    '999999' 
READ 

IF    M:QTYSTK    <    0     .CB.    M: QTYSTK       >    999999 
3    23,30    SAY     '  IN    STOCK 
OUT    OF    RANGE* 
ELSE 

STORE   F    TO   0:Q1YSTK 
FNDIF 
FNDDO    OrQTYSTK 

3    23  ,30    SAY    •  ' 

RELEASE    C:QTYSTK 

3    18,35    SAY    '     •     GET    C:MODEL    PICTURE    ' XXXXXXX' 

BEAD 

3    19,35    SAY    '     '     GET    C:DEFSEB    PICTURE    » XXXXXX' 

READ 

3    20,35    SAY    •     •     GET    C:HASSY    PICTURE    • XXXXXXXXXX' 

READ 

3    21,35    SAY    '     '     GET    C:SASSY    PICTURE    ' XXXXXXXXXXXX ' 

READ 

STORE    0: KODEL+O: DE FS EB+O :H A SSY+    0:SASSY    TO    McDITEM 

*****    FBCMPT    USER    FOR    RESPONSE 

STORE    T    TO    C:END 
EO    WHILE    0: END 

STCBE     •    •     TC    0:BEPLY 

3    22,10    SAY    '  *******         CHECK    PREVIOUS    ENTRIES    '; 

+ i *******    i 

3    23,10    SAY    '     CHOOSE    1-    CONTINUE    ENTRY         2-    MAKE    '; 

+• CORRECTIONS     '     GET    0: REPLY 
BEAE 
IF    C:EEPLY    <>     '1'     .AND.    0:BEPLY    <>     '2« 

3    23,10    SAY     •    ANSWER    WITH    A    1    OR    2    ONLY  ' 

ELSE 

STCRE    F    TO    C:END 
ENDIF 
ENDDO    <0:ENE> 

IF    0:REPLY  =    '2' 

STCRE    T  TO    0:CORRECT 

3    22,  10  SAY     '  ' 

3    23,10  SAY     '  • 

ELSE 
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STORE    F    TO    0:CORRECT 
ENDIE 

ENDDC    <C:CORRECT> 
ERASE 
RELEASE    C: MODEL, 0: DEESER,0: HAS SY f 0: SASS Yr0 : END, 0 : COUNT 

*****    BERE    IS    THE   COMPRESSION    OF    M: REPCON, M  :NUM, M : DOCNO 

STORE    $ <F:REPC0N,1,6) +$ (M:REPC0N,8, 2)  ♦$ (M: REPCON, 11,4)     TO    ; 

0:REPCON 
STORE    C:EEPCON    TC    M:BEPCON 
STORE    $  (M:NUM,  1  .6)  ♦  $  (M:NUM,  8,2)+$  (M:NUM,11  ,1)  +  $(M:  NUM,  13,4)  ; 

+  $  (F: NUM, 18,4)     TO    0:NUM 
STORE    0:NUM    TO     M:NUM 
STORE    $  (M.-DOCNO,  1,6)  ♦  $  (M  :  DOCNO ,  8  ,  4)  +$  (M  :  DOCNO  ,  13  ,  4)     TO     ; 

0: ECCNO 
STORE    O.'ECCNO   TO    M:DCCNO 
RELEASE    C:REPCON,0: NUM,0:DOCNO 

*****    CAPTURE    THE    JULIAN    DATE       AND    PUT    INTO    OPENING    DATE 

STORE    C:JULIAN    TO     M:OPEN 
STORE    M:DDATE+M:RDATE+M:OPEN+; 

+  '  N'    TO    M: DATES 

REIEASE    M: DEATE,M:  RD ATE, M: OP  EN , 0: ACTPTT , 0 : PREPT,  ; 
0: LLIMIT,0:ULIMIT 

*****    THIS    IS    THE    START    OF    THE    SECOND    SCREEN    OF    DATA    ENTRY 

STORE    '        ■     TO    M:  UI 

STORE    0  TO    M:UPRC 

STORE    '  ■     TO    M:KUC 

STORE     ■  '    TC    M:ACTDISE 

STORE    •  '     10    M:ACTPT 

STORE     •  « ; 

+  '  '; 

♦«  ■    TO    M:DETAILS 

STORE    •     •    TO   M: DEFV 
STORE    •     ■    TC    M:DEFR 
STORE    '        •     TO    M:  DEF 
STORE     '     ■    TC    M:09Q 
STORE    •     •    TO    M:  DOC 
STORE     ■  «    TO    M:ORG 

STORE       0    TO    M:CCOST 

STORE    T   TO    C:PAGE2 

EO    WHILE    0: PAGE2 

2  0,10    SAY    •  UI  «  ; 

GET    M:UI 
3)    1,10    SAY     ■  UNIT    PRICE  '     GET    M:UPRC    PICTURE    ; 

•  999999.99* 

3  2,10    SAY     '18.        EST.    CORRECTION    COST 

M:CCOST    PICTURE    '99  9  999999.9  9' 
5    3,10    SAY     '19.       WARRANTY    -    Y/N/U 

MlWNTY    PICTURE    ,A« 
3    4,10    SAY     '20.        WORK    UNIT    CODE 

M :  WUC 
a    5,10    SAY     '21.       ACTICN/DISPOSITION    -H/I/D/R/O 

M'ACTDISP    PICTURE    'X* 
a    6,10    SAY     T22.       DETAILS   OF    DISCREPANCY    -    FIRST    2    ■ 
3   7,10    SAY     '  LETTERS    MUST    BE    DISCOVERY    CODE' 

a    8,10    SAY     '  «     GET    MiDETAILS 

a    12,10    SAY    '23A.    ACTION    POINT  ' 

GET    M:ACTPT    PICTURE     ' AXXXXX 9999 9 ' 
a    13,10    SAY    '  DSEECT    VERIFICATION    CODE    -    N/O/U/Y    <0>' 

GET    M:DEEV    PICTURE     'A' 
a    14,10    SAY    »  DEEECT    RESPONSIBILITY    -    C/N/S/U/X       <0>' 

-  GET    M:DEFR    PICTURE     ' A' 
a    15,  10    SAY    •  9Q  • 
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<0> 

•GET; 

•GET; 

<0> 

•GET; 

<c> 

•GET; 

GET  M:09Q    PICTURE    '  X* 

2  16,10    SAY  ■  ORIGIN    CODE 

GET  M:ORG    PICTURE    '  AAX ' 

3  17,10    SAY  '30.       TYPE    DOC 

GET  M: DOC    PICTURE    •  9' 

a    18,10    SAY  '  TYEE    DEFICIENCY 

GET  H: DEF    PICTURE    •  99' 

CLEAR    GETS 

STORE    T    TO    0:01 
DO    WHILE    0:01 

3    0,10    SAY    ■  UI 

'     GET    M:OI    PICTURE    'AA' 
READ 

IF   $(M:0I,1,1)     =    ■    •     .OR.    $(M:UI,2,1)     =    ' 
3    23,30     SAY    ■     NO    BLANKS' 


ELSE 

STCRE    F 

ENDIF 
ENDDO    0:01 
9    23,30    SAY     • 
RELEASE    0: 01 


TO    0:01 


STCRE  T  TO  C:EPRC 
STCRE  T  TO  C:0PRC 
DO    WHILE    O:0PRC    .OB.    0:EPRC 

DO    WHILE   O:0PRC 

3     1,10    SAY     •  ONIT    PRICE  •     GET; 

M:OPRC    PICTORE    '999999.99' 
READ 

IF    M:OPRC    <    .01    .OR.    M:0PP.C    >    999999.99 
2    23,30    SAY     '     AMOUNT    OUT    OF    RANGE     ' 
EL  S  E 

STORE     F    TO    0:UPRC 
ENDIF 
ENDDO    <C:UPRC> 

a    23,30    SAY    '  • 

STORE     (K:UPRC    *    M:QTYDEF)     TO    M:EPRC 

a     1     43     qAY     'EXT    PRICE    $' 

a    1*54     SAY    M:EPRC       PICTURE    '999999999.99' 

IF    M:EPEC    >=    1 00000000 

a    23,30    SAY    •    EXTENDED    PRICE    OUT    OF    RANGE' 
ELSE 

STCRE    F    TO    0:EPRC 
ENDIF 
ENDDO    <0:UPRC    &    0:  EPRO 
RELEASE    0:UEEC,0:EPRC 

a    23.30    SAY    '  ♦ 

a)    2,10     SAY    '18.       EST.     CORRECTION    COST  •; 

+'<0>    'GET    M:CCOST    PICTURE    '99  9  9999  99.99' 
READ 

STCRE  T  TO  C:WNTY 
DO    WHILE    0: WNTY 

a    3,10     SAY    '19.       WARRANTY    -    Y/N/U  ; 

'     GET    MtWNTY    PICTURE     'A' 
STORE     !  (M:WNTY)     TO    M:WNTY 
READ 

IF     M:WNTY    <>    •  Y«     .AND.     M:WNTY    <>    'N'     ; 
.AND.    M:  WNTY    <>     'U' 

a    23,30     SAY    • OSE    Y,N    OR    0    ' 
ELS  E 

STCRE    F     TO    0: WNTY 
ENDIF 
ENDDO    <0:WNTY> 

a    23,30    SAY    '  ' 

RELEASE    0: WNTY 
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a)    4,10     SAY     »20.       WORK    UNIT    CODE  ; 

<0>     '    GET    M:WUC    PICTURE     'XXXXXXX' 
STORE    T    TO    C:ACTDISP 
DO    WHILE    0: ACTDISP 

3    5,10     SAY    '21.       ACTION/DISPOSITION     '; 
♦•-H/I/E/R/O  <0>    ■     ; 

GET    M:ACTDISP    PICTURE     'X' 
READ 
IF    M:ACIDISP    =     'H'    OR.     M:ACTDISP    =     'I'     ; 

.OR.     M:ACTDISP    =    'D'.OR.     M:ACTDISP    =    'R'     ; 
.OR.     MrACTDISP    =     '0'     .OR.     M:ACTDISP    ='     ' 
STORE    F    TO    0: ACTDISP 
ELS  E 

a)    23,30    SAY    •     ERROR    IN    CODE' 
END  IF 
ENEDO    <C:ACTEISP> 

3    23,30    SAY    '  • 

RELEASE    0: ACTDISP 

STORE    T   TO    0:DISCODE 
DO    WHILE    0:DISCCEE 

2    6,10    SAY     '22.       DETAILS    OF    DISCREPANCY    -    FIRST    2    ' 

2    7,10    SAY     '  LETTERS    MUST    BE    DISCOVERY    CODE' 

2    8,10     SAY     '  •     GET    M:DETAILS 

REAE 

STORE      $  (N: DETAILS, 1,2]     TO    M:DIS 

STORE    ! (M:DIS)    TO    H :DIS 

USE    D:WHEREDIS    INDEX    D:DISCODE 

FINE   &M:  DIS 

IF       #    =    0 

5)    23,30    SAY     'WHERE    DISCOVERED    CODE    INCORRECT' 

ELSE 

STORE    F    TO    0 :DISCODE 

ENDIF 

ENDDO    <0:EISCODE> 

2   23,30    SAY    •  ' 

RELEASE    OzEISCODE 

STORE    T    TO    C:ACTPTT 
DO    WHILE    0:  ACTPTT 

a)     12,10    SAY    '23A.    ACTION    POINT  : 

'     GET    M:ACTPT    PICTURE    ' A XXXXX9 99 99 * 
READ 
IF     M:ACTET=    •  ' 

a)    23,30    SAY    'MAY    NOT    BE    BLANK' 
ELS  E 

STORE    F    TO    0: ACTPTT 
ENDIF 
ENDDO    <0:ACTPTT> 
a)    23,30    SAY    «  ' 

STORE    T    TO   0:DEFV 
EO    WHILE    C:DEFV 

S    13,10    SAY     '  DEFECT    VERIFICATION    CODE'; 

+'-N/0/U/Y    <0>'     GET    M:DEFV    PICTURE    'A' 
READ 

IF    M:EEFV    =     «N'     .OR.     M:DEFV    =    '0«     ; 
.OR.    M:DEF V    =    «  U'     ; 

.OR.    M:DEFV=    'Y'     .OR.     M:DEFV    =    '     ' 
STORE    F    TO    0: DEFV 
ELSE 

a)    23,30    SAY    'CORRECT    CODE    MUST    BE    ENTEREE' 
ENDIF 
ENEDO    <0:DEFV> 

3    23,30    SAY     «  • 

RELEASE    0: DEFV 
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STCRE    T    TO    C:DEFR 
DC    WHILE    0:EEFR 

3     14,10    SAY    '  DEFECT    RESPONSIBILITY    -; 

+'C/N/S/U/X       <0>'     GET    M:DEFR    PICTURE     'A' 
READ 
IF    M:DEF5   =    'C    .OR.    M:DEFR    =    'N'    ; 

.OR.     M:DEFR    =     'S'     .OR.     M:DEFR    =     'U«     ; 
.OR.     M:DEFR    =    'X'     .OR.     M:DEFR    =     •     ' 
STORE    F    TO    OrDEFR 
ELS  E 

a)    23,30    SAY    'CORRECT    CODE    MUST    BE    ENTERED' 
ENDIF 
ENDDO    <0:DEFR> 

a)    23,30    SAY     •  ' 

RELEASE    0:DEFR 

IF    M:COG   =  '  9C' 

STORE    T    10    0:9Q 
DO    WHILE    0:9Q 

a)    15,10    SA Y    •  9Q  •  ; 

+•  •     GET    M:09Q    PICTURE    'X' 

READ 
IF     M:09Q   =  '2'     .OR.     M:09Q    =  '4'     ; 

.CR.    M:09Q    =  »5«     .OR.     M:09Q   =  '7'; 
.CR.     M:09Q    =  '9'     .OR.     M:09Q    =•     • 
STORE    F    TO    0:9Q 
ELSE 

2    23,30    SAY    •    OUT    OF    RANGE' 
ENDIE 
ENDDO    <C:9Q> 

a)    23,30    SAY    '  ' 

RELEASE    C:9Q 
ENDIF    <M:COG    =    9Q> 

STCRE    T    TO    C:ORG 
DO    WHILE    0:CFG 

a)     16,10    SAY    '  ORIGIN    CODE  •; 

+1  ■     GET    M:ORG    PICTURE     'AAX' 

READ 
IF    $(M:CEG.1,1)     ='     '.OR.     $(M:ORG,2,1)     =     •     ' 

a)    23,20    SAY    •    FIRST    2    POSITIONS     MAY    NOT'; 
+' CONTAIN    BLANKS' 
EL  SE 

STOEE    F    TO    0:ORG 
ENDIF 
ENEDO    <0:ORG> 

3    23.20    SAY    •  ' 

REIEASE    0:OEG 

STCRE    T    TO    C:TY?E 
DC    WHILE    0:TYPE 

3     17,10    SAY    '30.       TYPE    DOC  •; 

+'  '     GET    M:DOC    PICTURE    '9' 

READ 
IF    M:DOC    <    '1'     .OR.     M:DOC    >    '7» 

a    23,30    SAY    'OUT    OF    RANGE' 
ELSE 

ST05E    F    TO    0:TYPE 
ENDIF 
ENDDO    <C:TYPE> 

a)    23,30    SAY    ■  • 

RELEASE    0: UIC,O:UIC2,0: PREP,0: DOC , 0: SERNO, 0 :TYEE 

STCRE    T    TO    C:DEF 
DO    WHILE   0: CEF 

9    18,10    SAY    '  TYPE    DEFICIENCY  •; 

+'  •     GET    M:DSF    PICTURE     '99' 

REA  D 

IF    M:DEF    <    '01'     .OR.    M:DEF    >    '19' 
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5)    23,30    SAY    'USE    01    -    19    ONLY' 

ELSE 

STOBE    F    TO    0:DEF 

END  IF 
ENDDO    <0:DEF> 
RELEASE    0:DEF 
2    23,30    SAY    '  • 

*****    EFCMFT   USEE    FOE    RESPONSE 

STORE    T    TO    C:END 
DC    WHILE    0: EKE 

STORE     •  ■    TO    0:REPLY 

a    20,20  SAY    •      1    -    POST    CASE' 

3     21,20  SAY    '     2    -    CHANGE    DATA' 

a    22,20  SAY    «     3    -    EXIT    WITHOUT    POSTING    ' 

a    $+1,34    SAY    '      '     GET    0:REPLY 
READ 

IF    C:REELY    <>     '1'     .AND.    0:REPLY    <>    »2'     ; 
.AND.    0:REPLY    <>    '3' 
a    23,5    SAY     '     ANSWER    WITH       1-2-3    ONLY    ' 
ELS  E 

STOBE    F    TO    0:END 

END  IF 

ENDDO    <C:ENE> 

a!    23,  10    SAY     ■ 

RELEASE   0:ENE 

ERASE 

IF    0:  REPLY    =    •  1' 

3     10,20    SAY    'CASE    BEING    POSTED    TO    DATA    BASE    ' 
5)    13,20    SAY    '  PLEASE    STANDBY  ' 

S    20,20    SAY    '***         DO    NOT    INTERRUPT  ***  ' 

STOBE    F    TO    0:PAGE2 
STORE     •  1F'     TO     M:TYPE 
DO    C:XDEHNDLR.  PRG 
STORE     •  2F'     TO     MtTYPE 
DO    C:XDEHNDLR. PRG 

ERA  SE 

3     10,20    SAY    •        CASE    NUMBER    OF    THE    NEW    CASE' 

a    12    33    SAY      M:CASE 

a    23^20    SAY    '  PBESS    ANY    KEY    TO    CONTINUE' 

WAIT 

ENEIF 

IF    OtREPLY     =    '2' 

STOBE    T    TO    0:PAGE2 
ELSE 

IF    C:  RE  ELY    =    '3' 

STOBE    F    TO    0:PAGE2 

ENDIF 
ENDIF 

ENDDC    <C:PAGE2> 
RELEASE    ALL    EXCEPT    C:* 
STORE    T    TO    0:TRUE 
EN  DEO    <0:TRUE> 
RETURN 

*****    ENE    0F    PROGRAM 
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V.  CASE  UPDATE  MODULE 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


AND/OR    CORRECTION    OF 
E    CURRENTLY    IN    QDR 


EATE:    8    DECEMBER     1983 
VERSION:    1.0 
MODULE    NAME:    UPDATE 
MODULE    PURPOSE:     ALLOW    ADDITION 

LATA   IN    QDR    CAS 
cySTEM • 
MODULE    INTERFACE~EEFINITION 

INPUTS:     CASE,    C:WHO,    C: JULIAN 

OUTPUTS:     ALL    EATA    ELEMENTS    IN    OPEN1    &    OPEN2, 
M:TYPE 
MCDUIE    PROCESSING    NARRATIVE    DESCRIPTION: 

USER    ENTERS    CASE    NUMEER    OF    CASE    TO    BE    CHANGED. 
MODULE    SEARCHES    DATA    BASE    FOR    CASE    AND 
DISPLAYS     INFOEKATION    CURRENTLY    ON    FILE    THROUGH 
A    SERIES    OF    THREE    MENUS.    DATA    IS     WRITTEN    TO 
FIRST    DATA    BASE    MIDWAY    IN    PROCESS    DUE    TO 


LIMIT  OF  64  MEMORY  VARIABLES 
CHANGE  OF  DATES  IS  NOTEE  FOR 
MODULE    UTILIZATION. 

SUPEROREINATE    MOEULES:     MENU1 
SUEOEDINATE     MODULES:    XDEHNELR 
AUTHOR:    J.G.     BOYNTON 


AT    ANY    ONE 
STATISTIC 


TIME, 


** 
** 
** 
** 
** 
** 
** 
** 
** 
#* 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


*********************************************************** 


STORE    T    TO    U:UPDATE 
EO    WHILE    U:  UPDATE 

STORE    T    TC    U:TEUE 

DO    WHILE    U:TRUE 

ER  ASE 

STOBE  '  'TO  U: CHOICE 

TEXT 


*****  UPDATE  ***** 


THIS    PROGRAM    ALLOWS    YOU    TO 
UPDATE    A    QDR    CASE 


1  -    CONTINUE 

2  -    RETURN    TO    MENU 
ENDTEXT 

3    20,40    SAY    «     «    GET    U:CHOICE 

READ 

DO     WHILE    U:CHOICE    <>    »1»      .AND.     U:CHOICE    <>     »2« 

a    23,20    SAY    'ENTER    1    OR    2    FOR    YOUR    RESPONSE' 

2    20,40   SAY    •     '     GET    U:  CHOICE 

REAE 
ENDEO    <U:CHOICE> 
ERASE 
IF    U:CHOICE    =     «2« 

RELEASE    ALL    EXCEPT    C:* 


82 


RETURN 
END  IF 

ERASE 

STORE       •  'TO    M:CASE 

TEXT 

*****    SELECT    RECORD    FOR    UPDATE    ***** 

ENTER    THE    CASE    NUMBER 
OF    THE    RECORD    TO    BE    UPDATED 

ENDTEXT 

STORE    •     •    TC   U:REPLY 

3    10,    29    SAY    'CASE     •     GET    M:CASE    PICTURE     '999999X' 

READ 

STORE    M:CASE  TO    M:  KEY 

STORE    ME'       TO    M:TYPE 

EO    C:XEBENDLR 

IF    M:TYPE   =    '9' 

3     12,25    SAY     '  RECOED    NOT    FOUND    IN    OPEN    FILE    ' 

a)     13,21     SAY     'DO    YCU    WISH    TO    CHECK    THE    CLOSED    FILE    ?' 

a)     14,40    GET    U:REPIY    PICTURE    'A* 

READ 

DO    WHILE     !(U:P.EPLY)     <>    •  I"     .AND.     !(U:REPLY)     <>     'N« 
2    14,45    SAY    • ENTER    Y    OR    N' 
S    14,40    GET    U:REPLY    PICTURE    'A' 
READ 

ENCDO 

i 


a)     14,45    SAY     ' 
IF    !  (U:REPLY)     =     ' Y« 
STCRE    '3E'     TO    «: 


:TYPE 
DO    CtXDBHNDLR 
IF    M:  TYPE    =    '  9' 

a)     16,23    SAY     'EECORE    NOT    FOUND    IN    THE    QDR    SYSTEM' 
a)     17,27    SAY     'STRIKE    ANY    KEY    TO    CONTINUE' 
WAIT    TO    U:REPLY 
ELSE 

IF    K:TYPE   =     '  1' 

3    18,28    SAY    'RECORD    CURRENTLY    IN    USE' 
2    19,27     SAY    'STRIKE    ANY    KEY    TO    CONTINUE' 
WAIT    TO    U:  REPLY 
ELSE 

ERASE 

STORE    F    TC    U:TRUE 
STORE    'CLCSE'    TO    U:FILE 
ENDIF 
ENEIF 
ENDIF 
ELSE 

IF    M:TYPE  =    ■ 1« 

a     12,28    SAY    'RECORD    CURRENTLY    IN    USE' 
a    13,27    SAY    'STRIKE    ANY    KEY    TO    CONTINUE' 
a     14,40    GET    U: REPLY 
READ 
ELSE 

ERASE 

STCRE    F    TO    U:TRUE 
STCRE    'OPEN'     TC    U:FILE 
ENEIF 
ENDIF 
ENDDO    <U:TRUE> 

****    THIS    SECTION    FOB    CURRENT    EATES    VALUE    CAPTURE 

ERASE 

STORE    $  <M:  EATES, 1  ,  5)    TO    M:EEATE 
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STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


DATES, 6 
DATES 
DATES  ,1b 
DATES, 21 
DATES, 26 
$  <M:DATES,31 
$  (H:  DATES, 36 
$  <M:DATES,U1 


(M: 
(M: 
$  (M: 
$  (M: 
$  (M: 


■     'S 

5 

5' 
5' 


TO  M 
TO  M 
TO 
TO 
TO 
TO 
TO 
TO 


RDATE 

:OPEN 

:LDATE 

:SCRDATE 

:IRDATE 

:RIMDAT 

:CLCSE 

:REOPEN 


STORE  M:DDATE    TO    T:DDATE 

STORE  M:RDATE    TO   T:EDATE 

STORE  M:OPEN      TO    T : CEEN 

STORE  M:LDATE    TC   T:IDATE 

STORE  M:SCEDATE    TO    T:SCRDATE 

STORE  MiIRDATE    TO    T  :IRDATE 

STORE  M:RIMDAT    TO    TtBIMDAT 

STOBE  M:CLCSE    TO    T:CLOSE 

STORE  M:REOPEN     TO    T:REOFEN 


*****  THIS    SEQUENCE    CALCULATES    THE    UPPER    AND    LOWER    YEARS 

*****  INEUT    AND    IS    BASED    ON    THE    CURRENT    JULIAN    DATE 

*****  U:LLIMIT=    YEAR    MINUS    TWO    YEARS 

*****  U:ULIMIT    =    YEAR    PLUS     ONE    YEAR 


EOR 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

RELEASE 

ERASE 


$  (C:  JULIAN, 1,2)    TO    TEMPI 
VAI  (TEMPI).    TO    TEMP1A 

LOW 

TO    HIGH 
OW    TO    ILMT 
TEMP1A+HIGH    TO    ULMT 
STE(LIMT,2)    TO    U:LLIMIT 
STR(U1MT,2)     TO    U:ULIMIT 

TEMPI, TEMPI A,LOW,HIGH,LLMT,ULMT 


I 

VAK^M     TO 

VAI(» 1« 
TEMPI A-L 


3 


3,2    SAY 


3 
8 
9 
10 
10 
1  1 


a! 
a 
a) 
2 
a) 

a 
a 

0) 

a 

a 

cH    18 

CLEA 


E 


U5  SAY 
2  SAY 
2  SAY 
2  SAY 
36  SAY 
2  SAY 
2  SAY 
2  SAY 
2  SAY 
2  SAY 
36    SAY 
2  SAY 
2  SAY 
GETS 


DATES    CURRENTLY    IN    FILE    FOR    CASE 


M:CASE 


M:OPEN 


DISCOVER 

RECEIVED 
OEENING 


Y    DATE 

FRGM    ORIGIN 
DATE 


TEANSMITTAL    DATE 
SCREEN    REPORT    DATE 
INTERIM     EESPONSE    DATE 
RETURN    FROM    ITEM    MGR 
CICSE 


M:CLCSE 

RECPEN 
<*    MAY    NOT    CHANGE 


THESE  DATES> 


GET 

GET 


M:DDATE 
M:RDATE 


GET 
GET 
GET 

GET 


M. 
M 
M 
M, 


LDATE 
SCEDATE 
IRDATE 
RIMDAT 


GET 
i 


M:RECPEN 


STORE    •    ■    TC   U; EEPLY 
STORE    T   TO     U:DATET 
DO    WHILE    U:DATET 

STORE       T    TO    U:  DDATET 
DO    WHILE    U:  DDATET 


GET    MtDDATE 


a)    8,35     SAY  '      ■ 
READ 

IF    M: DEATE  <>     ■  f 

IF     $  (M:DDATE,  1,2)     < 

.CR.  $(M:DDATE,1, 

.CR.  $(M:DDATE,3, 

.CR.  $(M:DEATE,3, 

.CR.  M:  DDATE    >    C: 


U:LLIMIT    ; 

2)  >    U:ULIMIT 

3)  <«001'  ; 
3)  >  '365'; 
JULIAN 
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a)    23,30    SAY    'DATE    OUT    OF    RANGE' 
ELSE 

STORE    F    TO    U:DDATET 
END1F 
ELSE 

STORE    F    TO    0: DDATET 
ENDIF     <ELANK> 
ENDDO    <U:DDATET> 
a)    23,30    SAY     ■  • 

STCRE       T    TO    UrRDATET 
DO    WHILE    U:  EEATET 

a)    9,35     SAY       ■     ■         GET    M:  RDATE 

READ 

IF    $(M:REATE,1  .2)     <    0: LLIMIT    : 

.OR.     $  (M:RDATE,1  ,2)     >    U:ULIMIT    ; 
.OR.     $(M:RDATE,3,3)     <  '  G  0  1  '     ; 
.OR.    $(M:RDATE,3,3      >    '365'; 
.OR.     K:RDATE    >    C: JULIAN     ; 
.OR.     M:RDATE    <    M:DDATE    ; 
.OR.     tf:RDATE    >M:OPSN 

3    23,30     SAY    'DATE    OUT    OF    RANGE' 
ELS  E 

STCRE    F    TO    U: RDATET 
ENDIF 
ENDDO    <U:RDA1ET> 

3    23.30    SAY    •  • 

RELEASE    U: DEATET,U :RDATET 

STCRE       T    TO    U:LDATET 
DO    WHILE    U: LDATET 

3    11,35    SAY       '     '  GET    M:LDATE 

READ 

IF    «:LDATE    <>     '  * 

IF    $  (M:LDATS,  1,2)     <    U:LLIMIT    ; 

.CR.    $  (M:LEATE,  1,  2)     >    0:OLIMIT     ; 
.CR.    $(M:LEATE,3,3       <«001'     ; 
.CR.    $ (M:LDATE,3,3       >    '365'     ; 
.CR.    M:LEATE    >    CrJULIAN    ; 
.CR.    8: LEATE    <    M:OPEN 

3    23,30    SAY    'DATE    OUT    OF    RANGE' 
ELSE 

STORE    F    TO    U:LDATET 
ENDIF 
ELS  E 

STORE    F    TO     U:IDATET 
ENDIF 
ENDDO    <U:LDAIET> 
3    23,30    SAY    •  » 

STCRE       T    TO    U:SCDATET 
DO    WHILE    U:SCDATET 

a     12,35    SAY       '     '  GET    M:SCRDATE 

READ 

IF     M:SCRDATE    <>    •  • 

IF     $  (M:SCRDATE, 1.2)     <    U:LLIMIT    ; 

.CR.    $ (M:SCRDATE, 1,2)     >    U:ULIMIT    ; 

.OR.    $ (M:SCRDATE,3,3)     <»001'      ; 

.CR.    $  (M:SCRDATE,  3,  2)     >    '365'; 

.CR.     M: SCRDATS    <    M: LDATE 

a    23,30    SAY    'DATE    OUT    OF    RANGE' 
EL  S  E 

STORE    F    TO    U:SCDATET 

ENDIE 
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UtSCDATET 

:SCDATET 
TET 


ELS  E 

STORE    F    TO 

ENDIF 
ENDDO    <U:SCEATET> 
3    23.30    SAY    • 
RELEASE    U:LEATET,U 

STORE       T   TO    U;IRDA 
DO    WHILE    U:IEDATET 

3     13,35    SAY       • 

READ 

IF    M:IRE£TE    <> 

IF  $(M:IRD 
.CR.  3( 
.CR.  $\ 
.OR.  $( 
.CR.    H: 

a  23 

ELSE 

SIORE    F 
ENDIF 
ELSE 

STOEE    F    TO 
ENDIF 
ENDDO    <U:IRE2TET> 
9    23,30    SAY    • 

STORE       T    TO    U:RIMD 
DO    WHILE    0: EIMDATT 

3    14,35    SAY      • 

READ 

IF     K:RIMEAT    <> 

IF    f(K:RIM 

•  CR .     5 

.CR.    $ 

.CR.    $ 

a    2 

ELSE 

IF    M:RI 

a    2 

+ 

ELSE 

ST 
ENDIF 
ENDIF 
ELSE 

STOEE    F    TO 
ENDIF 
ENDDO    <U:RIMEATT> 
a    23,30    SAY    ' 

+  ■  • 

RELEASE    U:IEDATET, U:RIMDATT 

STCRE       T   TO    U:REOPENT 
DO    WHILE    UrEEOPENT 

a    16,35    SAY       • 

READ 

IF    M:RECFEN    <> 


GET    M:IRDATE 


ATE.1  t2)     <U:LLIMIT    : 
M:IRDATE,1 ,2)     >    U:ULIMIT; 
M:IBDATE,3,3       <«00V     ; 
M:IRDATE,3,3J     >    '365' ; 
IREATE    <    M:OPEN 
,30    SAY    'DATE    OUT    OF    RANGE' 

TO    U:IRDATET 


U:IRDATET 


ATT 


GET    M:RIHDAT 


DAT,  1,2)     <U:  LLIMIT    ; 
M:RIMDAT, 1,2)     >    U:ULIMIT; 
M:RIMDAT,3,3J     <«001'     ; 
M:RIMDAT,3,3)_    >     '365' 
,30    SAY    fDATE    OUT    OF    RANGE* 

MEAT    <    M:LDATE 

3,30    SAY    '     RTN    DATE    NOT    • ; 

•BEFORE    TRANSMITTAL    DATE' 

ORE    F    TO    U:RIMDATT 


U:EIMDATT 


GET    MtREOPEN 
i 


IF    f  (M:REOFEN,1  ,2)     <U:  LLIMIT 
•  CR  •     3) 

.cr.   $ 
a   23,3 


M:REOPEN,1 ,2)     >    UrULIMIT; 
M:REOPEN,3,3)     <'001«     ; 
M:REOPEN,3,3)     >    '365' 
SAY    'DATE    OUT    OF    RANGE' 
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ELSE 

IF    M:RECPEN    <    M:OPEN 

3    23,30    SAY    'REOPEN    DATE    MAY    NOT': 
+  •     BE    LESS    THAN    OPEN    DATE     !' 
ELSE 

STORE    F    TO    U:REOPENT 
FNDIF 
ENDIF 
ELSE 

STOBE    F   TO    U:BEOPENT 
ENDIF 


ENDDO    <U:RECPENT> 
S    23,30    SAY     ■ 
+  • 

STORE    T    TO    U: END 
DO     WHILE    U:END 

a  21,  10  SAY  '       ***** 


CHECK  DATES  ABOVE 


a    22,10    SAY     ' <CHOCSE>    1-    CONTINUE         2-    CHANGE 


a    23,10    SAY     ■ 

READ 

IF    U:BEPLY    <>    • 1  •  .AND.    U 

a    22,10    SAY    •    ANSWER    WITH    A 

ELSE 

STORE    F    TO    0:END 

ENDIF 
ENDDO  <U:END> 
a  21,10  SAY  ■ 
a  22,10  SAY  ■ 
a  23,10  SAY  « 
RELEASE    U:REOPENT,U:END 


1     GET    U:REPLY    PICTURE 


REPLY    <>    '2' .AND.U:REPLY    <> 
1-2-3       ONLY' 


*****  t 

3-EXIT' 
9' 

•  3' 


v      I 


IF 


U:BEPLY  =■ 
STORE  F  T 
SIORE  T  T 
IF    MtDDAT 

.  CR.     M 

.CR. 

.CR. 

.CR. 


1' 

O  U: 
O  U: 
E  <> 

:OPE 
:SCR 
:IRD 
:CLO 

TORE 


EATET 
CCNT1 

T:DDAT 
N   <>  T: 
DATE    <> 
ATE    <> 
SE    <>    T 

t*i    ^o 


E    .OR.    M:RDATE    <>    T:RDATE 
OPEN    .OR.M:LDATE    <>    T:LDA 

Tl SCRDATE    " 
T  :  I BD  AT E .  0 R '.  M  :  R I MD  AT< > T :  R 
:CLOSE    .OR.     M:REOPEN    <>T: 

M:DATECI 


TE    ; 

IMDAT    ; 
REOPEN 


EISE 

STORE     '     *     10    M:DATECI 
ENDIF 

RELEASE    ALL    L 

STOBE    M: DDATE 

+M:IRDA 

TO    M:DA 

RELEASE    M:DDA 

M:IRD 


IKE    T:* 

+M:BDAT E+M:OPEN+M:LDATE+M :SCRDAT 

1E+M:RIMDAT+M:CL0SE+M: REOPEN+M:D 

TFS 

TE,M:RDATE,M:OPEN.M:LDATE.M: SCED 

ATE, M: RIME  AT, M: CLOS E, H : REOPEN, M: 


E; 
ATECI; 

ATE. ; 
DAT  EC I 


ELSE 


IF    U.'REPLY    ='3' 

STORE  F  TC  U:DATET 
STORE  F  TC  U:CONT1 
STORE  F  TC  U:CONT2 
STORE  F  TC  U:CONT3 
IF    U:  FILE    =    'OPEN' 

STORE     «1G'    TO 
ELSE 

STORE     '3G' 
ENDIF 

DO   C:XDBHNELR 
RELEASE    ALL    EXCEPT    C:* 
FETURN 

FNDIF 


MMYPE 


TO    M:TYPE 


EN  DIE 
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ENDDO  <U:CATET> 
RELEASE  U:DATET,  0:  END 

ERASE 

CO  WHILE  U-.CONT1 


*****  DISPLAY  OF  CASE  DATA  FROM  FIRST  DATABASE 


3 
2 


a 
2 

a 

2 
2 

a 


a 


2  SAY 
17   SA 


NSN 


42 
55 
67 
2  S 
P 
II 
2  S 


5 
6 
7 
8 


a 

2 

a 

a    9 

2  10 
2  1  1 
2  12 
2  13 
2  14 
2  15 
2  16 
2  17 
2  18 
2  19 
2  20 
CLEA 


SAY 

SAY 

SAY 

AY 

ICT 

SAY 

AY 


SAY 

GET 

SAY 

PICT 

SAY 

GET 

SAY 

GET 

SAY 

GET 
SAY 


GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
2  SAY 

GET 
GETS 
STORE 
2  22,1 
2  23,3 
READ 


Y    $(M:NSN 
+  $  (M:  NS 
•CAT    •     G 
'CASE    NU- 
11 :  C  AS  E 

•  CO 
URE     •XX' 

•SMIC    ■ 

•  01 

•  RE 
t  • 

M:REPCON 

•  AC 
URE     «AXXX 

•  NO 
K:  NO  MEN    P 

•  FS 
M:FSCM  PI 
»  CO 

M:NUM  PIC 
'  DO 

H:  DOC  NO    P 

•  QU 

M:QTYDEF 
'  UN 

M:UI    PICT 

•  UN 
M:UPRC    PI 

•  OR 
M:ORG    PIC 

•  9Q 
M:09Q    PIC 

i  sc 

M:SCRQTY 

•  SC 
SCR    PIC 

TY 
PI 
VE 
PIC 
CR 
M:CR     PICT 

•  TY 
M:DEF    PIC 


r  VI* 

N,7,3)  + 

EI    M:CA 

MEER:' 


GET    M:S 

C 

ECRT    CO 

PICTURE 
TICN  PO 
XXS9999 
MENCLAT 
ICTURE 
CM 

CIURS    • 
NTRACT 


-'♦$[M:NSN,5,2)  ♦»-•; 
«-'+$(M: NSNr 10,4) 
I 


M    PICTURE    'AX' 
NTROL 
'XXXXXX999999' 


'     GET    M:COG    ; 
*     GET    M:UIC 


INT 
i 

URE  ■  : 

•XXXXXXXXXXXXXXXXXXX' 

XXXXXX' 


•  GET  M:ACTPT; 


TORE  'XXXXXX99AXXXXXXXX' 

CUMENT 


M 
• 

M:DOC 
t 

M:VLC 

f 


ICTURE 
ANTITY 
PICTURE 
II  OF  I 
URE  'XX 
IT  PRIC 
CTURE  • 
IGIN 
IURE  'X 
EEGION 
IURE  'X 
BEEN  QU 
PICTURE 
BEEN  CO 
TURE  'X 
EE  DOCU 
CIURE  • 
NEOR  LI 
IURE  «A 
EDIT  CO 
USE  'A' 
EE  DEFE 
IURE  '9 


•  TO  U: REPLY 

SAY  ' 

SAY  ■  'GET  U:R 


•XXXXXX99999999  • 
DEFICIENT 
•999999' 
SSUE 


999999.99' 

XX' 

CODE 
i 

ANTITY 

•999999' 
DE 
XX ' 

MENT 

9' 

ABILITY    CODE 
i 

CE 

CT 
9' 


ENTER       <N>    TO    SKIP     ' 
EPLY 


IF 


!  (U:REPLY)     =    'N' 
STORE    F   TO    U:FIRSTPG 
STORE    F    TO     U:C0NT1 
STORE    T    TO    U:CONT2 
IF    U:FILE    ='CPEN' 


88 


STOEE     •  1C«     TO     M:TYPE 
ELSE 

"STORE     •  3C»    TO    M:TYPE 
ENDIF 
ELSE 

STORE    T    TO     U:FIRSTPG 
ENDIF 

51    22,  10   SAY    ■ 
a    23,10   SAY    ■  ■ 

*****    SKIP    FIRST    PAGE    OF    UPDATE    IF    REPLY    WAS    <N> 

DO    WHILE    U: FIRS1FG 

STORE    T    TO    0:CAT 
DO    WHILE    U:CAT 

a)     1,42    SAY    'CAT    •    GET    M:CAT    PICTURE    «9' 

READ 

IF    M:CAT    ='1»     .OR.     M:CAT    =  »2» 

STORE    F    TO    U:CAT 
E  LSE 

a)    23,20    SAY    '     1    OR    2    ONLY' 
ENDIF 
ENDDO    U:CAT 

5)    23,20    SAY    '  ' 

RELEASE    U:CAI 


STORE    T    TO    U:C0G1 
STORE    T    TO    U:COG2 
DC    WHILE    U: CCG1    .0 
DO     WHILE    U:COG 


E.     U:COG2 
1 


a)    2,35    SAY 
READ 

STOEE    !  (M: 

IF    l(M:COG 

a>    23 


i     i 


GET    M:COG    PICTURE     «9X' 


COG)     TO    M:COG 
2    1)     =    *     • 

',2b       SAY    •     NO    BLANKS    IN    2D    '  ; 
♦'POSITION' 


ELSE 

STORE    F    TO    U:C0G1 
ENDIF 
ENDDO    <U:C0G1> 
3)    23,20    SAY    « 

+  •  ' 


*****    CHECKS   THAT    COG    IS    VALID    IN    CURRENT    COG    TABLE...     MUST 
*****    EE    VALID    TO    CONTINUE 


USE  E:COG  I 
FIND  SM:CO 
IF       #    =    0 

2    23,20 


ELSE 

SIORE 

END  IE 
ENDDO    <U:C0G1    S    U: 
RELEASE    U:CCG1,    U: 
a)    23,20    SAY    • 


NDEX  D:COGS 
G 

SAY  •  COG  INVALID  -  ENTER  ' ; 
+•      CORRECTED  ENTRY' 


F     TO    U:COG2 


COG2> 
COG2 


IF    M:COG    =     '  1H'    .0 

STORE    I    TO    U: 

DO    WHILE    U:SM 

a)    2,45    S 

READ 


R.     M:COG    =    *2H'     .OR.     M:COG    =    '7H' 

SMIC1 

IC1 

AY     '     '    GET    M:SM    PICTURE    'AX' 


STORE    !( 
$  (M:S 


IF 


M:SM)     TO    M:SM 

M,1,1)     =     «  X'  .OR.$  (M:SM,  1,  1)      =     'L' 

STORE    F    TO    0:SMIC1 
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E ISE 

5)    23  ,30    SAY    'X    OR    L    ONLY' 
ENEIF 
ENDDO     <0:SMIC1> 
ENDIF 

RELEASE       0:SMIC1 
5)    23,30    SAY     ■  ' 

STORE    T    TO     D:0IC1 
DC    WHILE    U: DIC1 

9    3.35    SAY    ■     •     GET    M:UIC    PICTURE    'AXXXXX* 
READ 

IF  $  (M:  OIC,  1,1)  =  •  '.OR.  $(M:UIC,2,1) =  »  •  .OB.; 
$(M:UIC,3,1  =  •  '.OR.  $(M:UIC,4,1  =  '  '  .OR.; 
S  (H:0IC.5.1)  *    '     '.OR.     $(M:UIC,  6,  1 1  =    •     • 

a    23,20     SAY    '     NO    BLANKS    ALLOWED    IN    OIC1 
ELS  E 

STORE    F    TO     0:UIC1 
ENDIF 
ENDDO    <U:UIC1> 

3)    23,20    SAY    ■  • 

RELEASE    U: UIC1 

a    U,35     SAY     '    ■     GET    M:REPCON    PICTURE    • XXXXXX999 999' 
READ 

STCRE    T   TO    U:ACTPTT 
DO    WHILE    U: ACTPTT 

3    5,35    SAY    '     'GET    MrACTPT    PICTURE    ■ AXXXXX 99999 ' 

READ 

IF     M:ACTET  =    •  • 

5)    23,30    SAY    'MAY    NOT    BE    BLANK* 

ELS  E 

STOHE    F    TO     U: ACTPTT 

ENDIF 
ENDDO    <U:ACTETT> 
a    23,30    SAY     '  ■ 

STORE    T    TO    DrNOMEN 
DO    WHILE    U: KCMEN 

a    6,35     SAY    ■     'GET    K:NOMEN    PICTURE    ; 

• XXXXXXXXXXXXXXXXXXX' 
READ 
IF    $(H:  KCMEN,  1  ,  1)     =     ■     '     ; 

.OR.     $(M:NOMEN,2,1)     =    •     •; 
.OR.     $(M:NOMEN,3.  1)  =«     ' 

2    23,30     SAY    »    NO    BLANKS    IN    FIRST    3«  ; 
+'       POSITIONS' 
ELS  E 

SIORE    F     TO    U:NOMEN 
ENDIF 
ENDDO    <U:NOMEN> 

a    23,30    SAY     •  • 

RELEASE    U:  NCKEN 

*****    INEUT    FSCM 

2       7,35     SAY     '     •     GET    MrFSCM    PICTURE       'XXXXXX' 
*****    INEUT    CONTRACT    NUMBER 

a    8,35    SAY     «     'GET    M:NUM    PICTURE    • XXXXXX99 AXXXXXXXX' 
*****    INEUT    DOCUMENT    NUMBER 

STCRE    T    TO    U:UICT 

STCRE    T    TO    U:PREPT 

STCRE    T    TO    U: DCCT 

DO    WHILE    U:D0C1    .OR.     U:UICT 
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TO    U:DOCT 


3)    9,35     SAY     '    'GET 

READ 

IF    M:  DOCNO    =    • 

STORE    F    TO    U:D 
STORE    F    TO    U:0 
ELSE 

IF     $(M:ECCNO,1 

.OR.    $(M:DO 

.OR.     $(M:DO 

.OR.     IJH:DO 

2   23,20 

ELSE 

STORE    F 
ENDIF 

IF     $(M:DCCNO,1 

.OR.     $(M:DO 

.OR.     $(M:DO 

2       23, 

ELSE 

STORE 
ENDIF 
ENDIF    <ALL    BLA 
ENEDO    <D:DOCI    .AND 
RELEASE    0: UICT,U:D 
3    23,20    SAY    ■ 

*****       DOCUMENT     NUMBER    END 

STORE    T    TO    U:QTYDE 
DO    WHILE    U:  QTYDEF 

3    10,35    SAY    ■ 

READ 

IF     M:QTYEEF    < 
3    23,20    SA 

ELS  E 

STORE    F    TO 

ENDIF 
ENEDO    U:QTYEEF 
RELEASE    U :QTYDEF 
5)    23,25    SAY     ' 


STORE    T    TO    U:UI 
DO    WHILE    U: UI 

d)    11,35    SAY    • 

READ 

IF    $(M:UI,1.1) 
5)    23,30    S 

ELSE 

STCEE    F   TO    U:UI 

ENDIF 
ENDDO    U:UI 
3    23,30    SAY    ' 
REIEASE    U:UI 


K:DOCNO    PICTURE    • XXXXXX 99999 99 9' 

i 

OCT 
ICT 

,1)     =  •     «  ,OR.$  (M:DOCNO,  2,  1)  =     •     '; 
CNO,3,1)  =     •     •     ; 
CNO,U,1       =    t     i      . 
CNO,5,1)     =    '     • 

SAY    •     NO    BLAN 


NKS    ALLOWED    IN    UIC 


2,3)     >'366«     : 
CNO,12,3)     =    l  •     ; 

CNO,11,4)     =    •  • 

50    SAY    'PREP    DATE    OUT    OF    RANGE    ' 

F    TO    U:UICT 

NKS> 

.     U:UICT> 

OCT 


GET    M:QTYDEF    PICTURE     '999999' 


1    .OR.    M:QTYDEF    >    999999 

Y    '     DEFICIENT    #    OUT    OF    RANGE' 

U: QTYDEF 


•    GET    M:UI    PICTURE    'AA' 

=    «    '    .OR.    $  {M:UI,2,  1) 
AY     '     NO    BLANKS' 


—     i 


STCRE    T    TO 

STCRE    T    TO 

DO    WHILE    U 

DO    WHIL 

5)     12, 

READ 

IF    M: 

a) 

ELSE 

S 
ENDIF 
ENDDC  U 
3  23,30 
STORE 
STORE 


U:EPRC 

U:UPRC 

: UPRC    .0 

E    U:UPRC 

35    SAY    • 

UPEC    <    . 
23,30    S 


R.     U:EPRC 

'GET    M:UPRC    PICTURE    '999999. 99« 

01  .OR.  M:UPRC  >  999999.99 
AY  '  AMOUNT  OUT  OF  RANGE  • 


TORE    F    TO    U:UPRC 


i 


:UERC 
SAY    • 

M  :UPRC    * 
TO    U:EP 


M: QTYDEF)     TO    M:EPRC 
RC 
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DO    WHILE    U:EPRC 
3    12,50    SAY 
5)    12,61    SAY 
IF    M: EFRC    >= 
a)    23,30    SA 
E  LSE 

STOEE    F    TO 
ENDIF 
ENDDO    <U:EFRC> 
ENDEO   <U  :UPRC   S    U:E 
RELEASE    U:UPEC,U:EP 

STORE    T    TO    U:ORG 
DO    WHILE    U: CEG 

3    13,35    SAY    ■ 

READ 

IF     $(M:CFG,1,1 
S    23,20    SAY 


ELSE 

STCFE    F 

ENDIF 
ENEDO    <U:ORG> 
2    23,20    SAY    • 
REIEASE    U:OFG 


•EXT    PRICE    $ ' 

M:EFRC      PICTURE    '9999  9  999  9.99' 
100000000 

Y    '     EXTENDED    PRICE    OUT    Or    RANGE' 

U:EPRC 


FRO 
RC 


•    GET    M:ORG    PICTURE    *AAX' 

)  =•  » .OR.  $   (M:ORG,2, 1)  =  '  ' 
»  FIRST  2  POSITIONS  MAY  NOT'; 
+  •   CONTAIN  BLANKS' 


TC    U:ORG 


& 


IF    M:COG    ='  9 
STORE    T 
DO     WHILE    U 

a   ia,3 

READ 
IF     M:0 
.OR 
-CR 

ELSE 

ENDIF 

ENDDO    <U:9 

3    23,30    SA 

RELEASE    U: 

ENDIF    <M:COG   = 

a     15,35    SAY     • 

READ 


U:9 

:9Q 
5    SA 

9Q   = 

.  M: 
.  M: 
STOR 


GET  M:09Q  PICTURE  'X 


•2'  .OR.  M:09Q  =  '4«  ; 
09Q  ='5'  .OR.  M:09Q  ='7' ; 
09Q  =' 9'  .OR.  M:09Q  ='  ' 
E  F  TO  U:9Q 


a    23,30    SAY    '     OUT    OF    RANGE' 

Q> 
Y    ' 

90 
9Q> 

'    GET    M:SCRQTY    PICTURE    '999999' 


a     16,35    SAY     '     '    GET    M:SCR    PICTURE     'XXX' 
READ 

STORE    T    TO     U:DOC 
DO    WHILE    U:  ECC 

a     17,35    SAY    '      •    GET    M: DOC    PICTURE    '9' 

READ 

IF    M:DOC    <    '1'     .OF.     M:DOC    >    '7« 

a    23,30    SAY    •     1     THROUGH    7    ONLY' 

ELS  E 

STOFE    F    TO    U:  DOC 

ENDIF 
ENEDO    <U:DOO 
a    23.30    SAY    ' 
REIEASE    U:DCC 

a     18,35    SAY    ■ 

a    19,35    SAY     • 

a    20,35    SAY    ' 


GET    M:VLC    PICTURE     'A' 
GET    M:CR    PICTURE    'A' 
GE1    M:DEF    PICTURE     '99' 
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READ 

STCRE    T    TO    D:END 
DO    WHILE    U: END 

STORE     •     ■    TO    0  :REPLY 

3    22,10    SAY    '<CHOOSE>    1-    CONTINUE         2-    CHANGE'; 

4.1        3-    EXIT* 
a    23,30    SAY    •      'GET    U:REPLY    PICTURE    '9' 
READ 

IF    UiREPLY    <>     M"     .AND.     U:REPLY    <>    '2'     .AND.; 
U:REPLY    <>     «3' 
cD    23,10    SAY    'ANSWER    WITH    A    1    -    2    -    3      .CNIY' 
ELS  E 

STORE    F    TO     U: END 
ENDIF 
ENDDO    <U:ENC> 
3    23,10    SAY     '  ' 

IF    U:REPLY    =    '2' 

STORE    T    TO    U:FIRS1PG 

a    22,10    SAY    '  • 

3    23,10    SAY    ■  • 

EL  SE 

IF    U:REEIY    ='3  ' 

STORE    F    TO    U: FIRSTPG 
STORE    F    TO    U:CONT1 
STORE    F    TO     U:CONT2 
•STORE    F   TO    U:CONT3 
IF    U:FILE    =     'OPEN' 

STORE     '1G'     TO    M:TYPE 
EL  S  E 

S10RE    ' 3G'     TO    M:TYPE 
ENDIF 

DO    C:XDBHNDLR 
RELEASE    ALL    EXCEPT    C:* 
RETUFN 
ELSE 

STOBE    F   TO    U: FIRSTPG 
STORE    T    TO    U:CONT2 
STOEE    F    TO    U:C0NT1 
IF    0:FILE    =    'OPEN' 

STORE     '1C    TO    M:TYPE 
ELSE 

STORE     • 3C*    TO    M:TYPE 
ENDIF 

ENDIF 
ENDIF 
ENDEO    <U:FIRSTPG> 
ERASE 
RELEASE   U: END,U:COUNT, U:FIRSTPG 

*****    CHOICE    ABOVE    ALLOWS    ANALYST    TO    ABANDON    OR    TO    POST 
*****    CHANGES    MADE    THUS    FAR 

ENDDO    <U:C0NT1> 
RELEASE    U:CCNT1 

IF    U: REPLY    <>    «  3' 

2     10,20    SAY     'RECCED    BEING    PARTIALLY    UPDATED' 
2     15,20    SAY     «  PLEASE    STANDBY  ' 

*****    WRITE    DATA    TO    CPEN1/CLOSE1     AND    RELEASE    UNNECESSARY 
*****    V'ARIAELES     BEFORE    READING    OPEN2/CLOSE2    FOR    FURTHER 
*****    UPEATE    INFORMATION 
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DC    C:XCEHNDLH 

RELEASE    H:  CO  G,  M  :  C  AT  „  M:  N  0 ME  N  ,  H :  U IC  ,  a  :  UI  f  M :  QT  Y  D  E F  ,  H :  rJ  F B  C ,  ; 
M:  E  P  FC , a  :CRG, a :  EOC-M  :  DOCNO,  a  :  DATES',  a  :  REPCON  , ; 

a: fscm ,m:nub,m: CF,a:scR,a:sa 

RELEASE  a: 09  Q, H : EEF , H : 7  LC r  M : ACTPT , SCRQ T Y ,  a : D D  AT  E 

IF    U:FILE   =     'OPEN' 

STOFE    '2E«     TC    a:TYPE 
ELSE 

STOFE    'UE'     TC    a:TYPE 
ENDIF 

DC    C:XEEHNDLB 
ENDIF 

DO    WHILE    U:C0NT2 

STORE  $  (HtDITEM,  1,7)     10    U:TYPE 

STORE  $  (B:DITEM,8,6)     TO    U:SERNO 

STORE  $  (M:DITEar  14,  10)     TO    U:HASSY 

STORE  $(M:DITEB, 24, 1 2[    TO    U:SASSY 

STORE  *  '    TO    a:OVER 

*****    DISPLAY    FOR    SECCND    SCREEN    OF    UPDATE    PROGRAM 

ERASE 


a 
a 

a 

5) 
a 

5) 

a) 

a) 

a) 

a) 

a) 


1     2    S  AY     '  N  S  N  * ' 

1^16      SAY   3  (M:NSN,1,4)+«  -• ♦$ (H:NSN,5 #  2)  ♦  •-.'+$  (B:NSN,7,  3)  ; 

+  •- •  +  $  (M:NSN, 1 0,4) 
1,55    SAY     'CASE    NUMEER:' 
1  ,67    SAY    M:CASE 
2,2    SAY     •  MFG.    PART    NUMBER 

PICTURE     » XXXXXXXXXXXXXXXX' 
3,2    SAY    '  SEFIAL/LOT/BATCH 

"XXXXXXXXX' 

ITEM  N    OR    0 

A1 

DATE    BFG/REP/OVHL 
99999' 

OPN    TIME    AT    FAILURE 
AX  X  X  X ' 

GOV    FURNISHED    MATL 
A' 

QUANTITY:     RECV/INSP/STK 
999999' 


PICTURE 
4,2    SAY     • 

PICTURE 
5,2    SAY    « 

PICTURE 
6, 2    SAY    ' 

PICTURE 
7,2    SAY    ' 

PICTURE 
8,2    SAY     ' 

PICTURE 


3    8,U3    SAY     '/'     GET    a:QTYINS    PICTURE    '999999' 


a    8,50    SAY     '/' 
a      9,2    SAY    ' 

PICTURE 
a    10,2    SAY    ' 

PICTURE 


a    1  1  ,2    SAY     ' 

PICTURE 
2    12,2    SAY     • 

PICTURE 
a    13,2    SAY     ' 

PICTURE 
a    14,2    SAY    ' 

PICTURE 
a    15,2    SAY     ' 

PICTURE 
a    16,2    SAY     • 

PICTURE 
a    17,2    SAY 


GET    B:CTYSTK    PICTURE    '999999' 
TYFE/BODEL/SERIES 
XXXXXXX' 

SERIAL    NUMBER 
XXXXXX' 

NEXI    HIGHER    ASSY 
XXXXXXXXXX' 

SUE-ASSEMBLY 
XXXXXXXXXXXX' 

ESTIMATED    CORRECTION    COST 
999999999.99' 

WORK    UNIT    CODE 
XXXXXXX' 

DEFECT    VERIF 
A* 

DEFECT    RESP 
A' 

STATUS    CODE 
M:STATUSC    PICTURE    'AA' 
a    18,2    SAY     •  CAUSE    CODE 

M:CAUSEC    PICTURE    'A' 
a    19,2    SAY     •  ACTION/DISP    -H/I/D/R/O 


-  N/O/U/Y 

-  C/N/S/U/X 


. GET  M:MFG 

GET  «:LOT 

GET  M:ITEM: 

GET  a:OVEE; 

GET  M:OTF 

GET  M:GOV 

GET    M:QTYREC; 


GET  U:TYPE 

GET  U:SERNO 

GET  U:HASSY 

GET  U:SASSY 

GET  M:CCOST 

GET  M:WUC    ; 

GET  M:DEFV; 

GET  M:DEFR 
GET 
GET 
GET 
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MtACTDISP    PICTURE    'X* 
a.    20,2    SAY     ■  WARRANTY     •     GET    M:WNTY    PICTURE    'Af 

3    20,19    SAY    'COST    CODE    '    GET    M:COSTC    PICTURE     •A1 
S    20,30    SAY    '     ACTION    CODE'     GET    MtACTTKN    PICTURE    'AAA' 
3    21,2    SAY     »  RETURN   CODE  •     GET    M:RETC 

PICTURE     •  9« 
CLEAR    GETS 

<N>    TO    SKIP     ' 


2    22, 10    SAY    • 

ENTER 

2    23, 3C   SAY    «     •     GET    U:  ! 

REPLY 

READ 

IF     !  (U:REPLY)     =     «N« 

STORE    F    TO    U:PAGE2 

STCRE    F    TO    U:CONT2 

STORE    T    TO    U:CONT3 

ELSE 

STORE    T    TO    U:PAGE2 

ENDIF 

3    22,10   SAY    ' 

a    23,10    SAY    • 

EO    WHILE    U: PAGE2 

*****    INPUT    MANUFACTURERS    PART    NUMBER 

a       2,35   SAY    '     ■     GET    M: MFG    PICTURE    « XXXXXXXXXXXXXXXXXX' 
a       3,35   SAY    •     »     GET    M: LOT    PICTURE    'XXXXXXXXX' 

STCRE    T    TO    U:ITEM 
DO    WHILE    U: ITEM 

3       4,35    SAY    '      '    GET    M:ITEM    PICTURE    'A' 
READ 

IF    M:ITEM    =    'N'     .OR.    21 :  ITEM    =    'O'     ; 
.OR.     M:ITEM    =    •     • 

STCRE    F    TO    U:ITEM 
ELSE 

3    23,30     SAY    '     USE    N    OR    O    ' 
ENDIF 
ENDDO       <U:ITEM> 
a    23,30    SAY    ■ 
REIEASE    U:ITEM 
IF    M:  ITEM    <>    ■     • 

*****    THE    NEXT    FIVE    LINES    CALCULATE    EARLIEST    YEAR    TO    ALLOW 
*****    job    OVERHAUL    ENTRY 

STORE    $  (C:  JULIAN, 1  .2)     TO    TEMPI 
STCRE    VAL(TEF.EI)    TO    TEMP1A 
STORE    VAL/'  10')     TO    LOW 
STCRE    TEMPI  2-LOW    TO    TEMP2 
STCRE     STRjfTEMP2,2)      TC    U:TENYRS 
RELEASE   TEMI1,TEMP1A,TEMP2,L0W 

STORE    T    TO    U:OVER 
DC    WHILE   U :CVER 

3       5,35    SAY    ■      ■    GET    M:OVER    PICTURE    '99999' 

READ 

IF    $(M:CVER,3, 3)     >    «365'     ; 

.OR.     $(M:OVER,  1,2)     <    U:TENYRS    ; 
.OR.     JfM:OVER, 1,2)     >    U:ULIMIT 

a    23,30     SAY    'DATE    OUT    OF    RANGE' 
ELS  E 

STORE    F    TO    U:OVER 
ENDIF 
ENDDO    <U:OVEB> 
ENDIF 
RELEASE    U:OVER,U:TENYRS 
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3)    23,30    SAY    ■    USE       N    OR    0    AND    THEN 

TIME        (A9999)  ' 


GET    M:GOV    PICTURE    'A' 


STCRE    T    TO    U:CTF 
DO    WH  T  L  E    U  •  C I F 

S       6,35    SAY    '     '    GET    M:OTF    PICTURE    •  A9999' 

p^n  n 

IF    M:OTF   =    '  ' 

STORE    F    TO    U:OTF 
ELS  E 

IF    $(M:OTF,1,1)     =    '  N  '  .  OR.  $  (M  :OTF ,  1  ,  1)     =  ' C  ; 
.AND.    $  (M:OTF,2,4)     >    '0000' 
STORE    F    TO    U:OTF 
ELSE 

ENDIF 
ENDIF 
ENDDO       <U:OTF> 
a    23.30    SAY     • 
RELEASE   U:OTF 

STORE    T    TO     U:GOV 
DC    WHILE    U:GCV 

a       7,35    SAY    '     ' 

READ 

IF    M:GOV    =    '     •     .OR.        M:GOV    =     'Y'.OR.     M:GOV    =  'N' 
STORE       F    TO    U:GOV 

ELSE 

a    23,30    SAY    'USE    EITHER    Y    OR    N' 

ENDIF 
ENDDO    <U:GOV> 

a    23.  30    SAY     •  • 

RELEASE    U:  GCV 

STORE    T    TO     0:QTYRECT 
DO    WHILE    U: CTYRECT 

a       8,35    SAY    '     ■    GET    M:QTYREC       PICTURE    '999999' 

READ 

IF    M:QTYREC    <    0    .OR.    M:QTYREC    >    999999 
a    23,30    SAY    'OUT    OF    RANGE' 

ELSE 

STOEE    F    TO    U:QTYRECT 

ENDIF 
ENDDO 

a    23,30    SAY     '  ' 

RELEASE    U:QTYRECT 
STORE    T    TO    0:QTYINS 
DO    WHILE    UlCTYINS 

a       8,43    SAY    '/'    GET    M: QTYINS       PICTURE    '999999' 

READ 

IF    M:QTYINS    <     0    .OR.    M:QTYINS    >    999999 
a    23,30    SAY    '     OUT    OF    RANGE' 

ELS  E 

STOEE    F   TO    U:QTYINS 

ENDIF 
ENDDO    <U:QTYINS> 

a    23,30    SAY    '  « 

RELEASE   U:QTYINS 

STCRE    T   TO    U:QTYSTK 
DO    WHILE    U.'CTYSTK 

a       8,50    SAY       '/'     GET    MrQTYSTK      PICTURE    '999999' 

READ 

IF    M:QTYSTK    <     0    .OR.    M:QTYSTK       >    999999 

a    23,30    SAY    'IN    STOCK    #    OUT    OF    RANGE' 
ELS  E 

STOEE    F    TO    U:QTYSTK 
ENDIF 
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ENDDO    U:<QTYSTK> 
2    23,30    SAY     ■ 
REIEASE    [IrQTYSTK 


3    9,35    SAY     ' 
3    10,35    SAY     • 
a     11,35    SAY    ' 

a    12,  35   SAY     • 

READ 


GET    U:1YPE    PICTURE     'XXXXXXX' 
8    GET    U:SERNO    PICTURE    'XXXXXX'. 
•    GET    U:HASSY    PICTURE    'XXXXXXXXXX' 
■    GET    UrSASSY    PICTURE    ' XXX XXXXXXXXX' 


STCRE    U:TYPE+U:SERNO+U:HASSY+U:SASSY    TO    M:DITEE 

•    GET    M:CCOST    PICTURE    '999999999.9  9' 


a    13,35    SAY     ' 
READ 

3    14,35    SAY    • 

READ 


GET    M:WUC    PICTURE     'XXXXXXX 


a     15,35    SAY     ■     •    GET    M:DEFV    PICTURE    'A* 

STORE    T    TO    D:DEFV 
DO    WHILE    UtEEFV 

a     15,35    SAY    '      '    GET    M:DEFV    PICTURE    'A' 

READ 

IF    M:DEFV    =    «N'     .OR.     MtDEFV    =     '0'     : 

.OR.     MrDEFV    =    'U»     .OR.     M:DEFV=    «Y'     ; 
.OR.     M:DEFV    =     •     • 
STORE    F   TO    U:DEFV 
ELSE 

a    23,30    SAY    •     CORRECT    CODE    MUST    BE    ENTERED' 
ENDIF 
ENDDO    <U:DEFV> 

a    23.30    SAY    '  • 

REIEASE   U:DEEV 


•  GET  M:DEFR  PICTURE  'A' 


'  U' 
i     t 


STCRE    T    TO    U:DEFR 
DO    WHILE    U:EEFR 
a     16,35    SAY    « 
READ 

IF     M:DEFB    =    «C'     .OR.     M:DEFR    =     'N' 
.OR.     M:DEFR    =    'S'     .OR.     M:DEFR    = 
.OR.     M:DEFR    =    'X'     .OR.     M:DEFR    = 
STOBE    F   TO    U:EEFR 
ELSE 

a    23,30    SAY    'CORRECT    CODE    MUST    BE    ENTERED' 
ENDIF 
ENCDO    <U:DEFB> 
a    23,30    SAY    ' 
REIEASE   U:DEFR 

a    17,35    SAY    ' 

READ 

a     18,35    SAY    • 

READ 

3    19,35    SAY    ' 

READ 


GEI    M:STATUSC    PICTURE    «AA' 
GEI    M:CAUSEC    PICTURE    'A' 
GEI    M:ACTDISP    PICTURE    «X' 


WARRANTY     'GET    M:WNTY 


STORE    T    TO    U:WNTY 
DC    WHILE    U:WNTY 
a    20,2    SAY    ' 
READ 

IF     M:  WNTY    =    «Y'     .OR.     M:WNTY    ='N' 
OR.     M:WNTY    =    'U' 
STCRE    F    TO    UiWNTY 
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ELSE    a)    23,30    SAY    'Y,    0    OR    H    ONLY' 
ENDIF 

gSD2S°30   Sil    ■ 

,    2o,19    Sit     'COST    CODE         GET    ■•««= 


READ 


ftig  ill  !»P»!  S?liilE?xg*SiiT^'PICT 


QBE     'AAA 


STORE    T    TO    0:END 
DC    WHILE   U:END 


STORE    ■     ■    ?°l0:B!?!$OSE>    1-    CONTINUE       2-    CHANGE' 
1    ll'Ji     111    '     '     GET    UTREPLY    PICTURE     '9' 


s"8aEiI^5<^i1,.»i«R8l§ipiTi<oH,i1oHi.T 


1 


ELSESTORE   F    TO    U:END 

ENDIF       ^  , 

ENDDO    <U:END> 
3    23,05    SAY     ' 

IF    U|?g?^T=T02U:PAGE2 

322,10    SAY    J 
g    23^10    SAY    ' 

ELSESTORE  F    TO  U:CONT2 

STORE  T    TO  U:CONT3 

STORE  F    TC  U:PAGE2 
ENDIF 

IlfsS^T^SERKO,    u:s,ss,,    ..».«....»...»-» 

ENDDO    <U:CONT2> 

EBOSSHILI   U:C0NT3 

„,„    DIWI«    OF    C*SE    DAT,     ERC«    0PEK2    DETAILS    »    REPLY     . 


2       1,2    SAY     '     #fll    wg§N5 '  uwi-'+SfMrNSN^.m;-'  ; 
1     SS    SAY     «CASE*NUMBER:     ' 

i  ,!'lc  ill  :Bip6iiTFB68E^iSs"HKEB. 

I    ^10    lit     •     •     GET    B:REPLI 


ST?E,E,;  sa1°-U:EEentee     <h>  to  skip     s  update  record- 

1    il; 30   II!    '     'SET   U: REPLY 
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READ 

IF    !  (U:  REPLY)     =    'N  ' 

STORE    F    TO    U:  PAGE  3 
STORE    F    10    U:CCNT3 
ELSE 

"STORE    T    TO    U:  PAGE  3 
ENEIF 

2    22,  10    SAY    '  '  ; 

+  •  • 

*****    SKIP    THIRD    PAGE    OF    UPDATE    IF    REPLY    WAS    <N> 

DC    WHILE   U:PAGE3 

STOSE    T    TO    U  :CISCODE 
DO    WHILE    U:DISCODE 

3    8,10    SAY    «     •     GET    M:DETAILS 

READ 

STORE       $  (M:DETAILS,1  , 2)     TO    M:DIS 

USE    D:WHEREDIS    INDEX    D: DISCODE 

FIND    &M:CIS 

IF       #    =    C 

2    23,30    SAY     'WHERE    DISCOVERED    CODE    INCORRECT1 

ELS  E 

STORE    F   TO    U:DISCODE 

ENDIF 
ENDCO    <U:DISCCDE> 

2    23,30    SAY     •  ' 

RELEASE    U:DISCODE 

2    14,10    SAY     '     '    GET    M:REPLY 

READ 

STORE    T    TO    U:END 

DO    WHILE    U:ENE 

STORE    •     ■     TO    UzREPLY 

2   21,10     SAY    '  *******         CHECK    PREVIOUS'; 

+  '    ENTRIES       *******    i 
2   22,10    SAY    •  <CHOOSE>     1-    CONTINUE    •; 

♦  »  2-    CHANGE    • 

2    23,35    SAY    ■     •     GET    U:REPLY 
READ 
IF    UzREPLY    <>    M«     .AND.     U:REPLY    <>    »2« 

2-    23,10    SAY     •     ANSWER    WITH    A    1    OR    2    ONLY' 
ELSE 

STORE    F    TO    U :ENC 
ENDIF 
ENDDC   <U: END> 

2    23,  10    SAY    '  • 

IF    U: REPLY    =    '2« 

STORE    T    TO    U:PAGE3 

2    2  2,10    SAY    '  ' 

2    23,10    SAY    •  • 

ELSE 

STORE    F    10    U:PAGE3 
STORE    F    TO    U:CONT3 
ENDIF 
ENDEO    <U:PAGE3> 
RELEASE   U:PAGE3,0:COUNI 
ERASE 

ENDDO    <U:CONT3> 

IF    UzREPLY     <>    »3» 

2     10.20       SAY    'YOUR    CASE    IS    BEING    UPDATED    NOW' 
2    $+2,20    SAY    •  PLEASE    STANDBY  ' 

ENDIF 
IF    UzREPLY     <>    '3' 

IF    U:FILE    =    'OPEN' 

STORE    ■  2C    TO    M:TYPE 
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EL  SE 

STORE     'UC     TO     M:TYPE 
ENDIF 
DC   C:XDBHNDIE 

ENDIF 

RELEASE    U:CONT3,U:EEPLY, U:END 
RELEASE    ALL    EXCEPT    C:* 
STORE    T    TO    U:UPDATE 

ENDDO    <0:UPDATE> 

RETURN 

*****       £ND    CF    PROGRAM 
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VI.    CASE    CLOSING    MODULE 

***********  ***  ********************************************* 

**  ** 

**      Date:    18  December      1 984  ** 

**      version:    1.0  ** 

**      Module    Name:   CLOSBEC  ** 

**      Module    Purpose:    Close  Current  Case  ** 

**      Module   Interface    Definition  ** 

**             Inputs:    C:WHO,   C:  JULIAN  ** 

**             Outputs:     None  ** 

**      Module    Processing  Narrative   Description:  ** 

**  ** 

**  Prompts    the    Analyst    for   the    desired   closing    date   ** 

**               to   assign  to    the   case   and  then   for    the  case  ** 

**               numter.      The    database   is    searched   and  ** 

**               reads   current  values.      Insures   that   there   are  ** 

**               transmittal    and   return   dates   assigned.    If   net  ** 

**                then  the   case   must    be    updated    before    closing.  ** 
**               If    dates   are    present,    the   credit   code   and    vendor    ** 

**               liability  codes   must   be  entered    in    response    to  ** 

**               the    prompts.      The   case   is   then    written  to   the  ** 

**                CLOSE1    and   CLCSE2   Databases    and   is    marked    for  ** 

**                deletion   in    the   OPEN1    and   OPEN2.  ** 

**  ** 

**      Superordinate   Modules:    MENU1  ** 

**      Subordinate    Modules:    XDEHNDLR  ** 

**       Author:    J.G.     BOYNTON  ** 

**                                                                                                •  ** 

***************************  ******************************** 

ERASE 

STORE    T    TO    CL:CL0SE 

DO    WHIIE    CL:CLOSE 

TEXT 

*****       CLOSE    CASE       ***** 


This    program   enables   you    to 
CLOSE    A    QDR    CASE 

1  -   Continue 

2  -   Return   to   Menu 


ENDTEXT 


STORE  ■  ■  TO  CL:EEPLY 

3  20,38  SAY  •  ■  GET  CL: REPIY 

READ 

DO    WHILE   CL:REPLY   <>    »1»     .AND.    CL:REPLY    <>    '2' 

3    23,20    SAY    •  ANSWER    WITH    A    1    OR    2    ONLY* 

3    20,38     SAY    •     '     GET    CL:REPLY 

READ 
ENDDC    <CL:REPLY> 

ERASE 

IF    CI:REPLY    =    •  2» 

RELEASE    ALL    EXCEPT    C:* 
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END  IF 


RETURN 


STORE  ' 
STORE  ' 
STORE  ' 


•     TC    LC:CLDATE 
•     TC    M:CASE 
'    TO    CL:VIC 

STORE    J     '    TC    CL:Cfi 


a    10,25     SAY     ******       CLOSE    CASE 
STORE    T    TO    CI:BATST 
CO    WHILE    CL: EATET 


*****  « 


a)    14,26    SAY 


READ 

IF    LC:CL 

REL 

RET 
ENDIF 

STORE  $  ( 
STORE  VA 
STORE    ST 

IF    $  (LC: 
.  OR. 

.  OR. 
.  OR. 
.  OR. 

3 


«CL 

GE 


EATE    = 
EASE    AL 
URN 


LC:CLDA 
I  (CL:TE 
E  (CL:LO 

CLDATE, 
$  (LC:CL 
$  (LC:CL 
$  (LC:CL 
$  (LC:CL 


OSING    DATE  MMDDYY 

T    LC:CLDATE 

t  i 

L    EXCEPT    C:* 


TE,5,2)     TO    CL: TEMPI 
MP1)-1    TO    CL:LOWDATE 
WDATE,2)     TO    CLlLDATE 

1.2)     <«01'  ; 
DATE, 1,2)     >    » 12» 
DATE, 3,2       <»  0 1 • 
DAT  E    3    2       >    ' 3 1 ' 
DATE',5'2    >$(C:  JULIAN,  1,2) 


23,30 

E    F    TO 


SAY    •     DATE    OUT    OF    RANGE' 
CL:DATET 


ELSE 

STOR 

ENDIF 
ENDDO    <CL:DA 
3    23,30    SAY 
RELEASE    CL:DATET,CL :LDATE,CL: LO  WDATE, CL: T EMP1 


TET> 
i 


STORE    T   TO    CL:MCEE 
DO    WHILE    CL:MORE 


3    10,25    SAY 
a    14,26    SAY 

GET 
CLEAR   GETS 


i  *****  CLOSE  CASE  ***** 
•CLOSING  DATE  MMDDYY  »; 
LC:CLDATE 


SE    NUMBER  ' 

ASE    PICTURE    '999999XJ 


STORE    T    TO    CI:REPLY 
DO    WHILE    CL: REPLY 
a    15,26    SAY    'CA 

GET    M:C 
READ 

USE    D:0PEN1    INDEX       D:OCASE1 
FIND    SM:CASE 
IF     #    =    0 

STORE    •     ■ 

a   20,22  sa 

a    22,18    SA 


ELSE 


a    23,33    SA 

READ 

IF  CI:AGAI 
RELEASE 
RETURN 

ENDIF 


TO    CL:AGAIN 

Y  '         That   Case    Not   In    Open    File' 

Y  •    1-To    Try    Again      2-To    Return'; 
+'    To    Menu' 

Y  '     '     GET    CL: AGAIN 


N    <>    • 1« 

ALL    EXCEPT    C:* 


IF 


NOT.    * 
STORE 


F    TO    CL:REPLY 
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STORE 

ENDIF 

IF     * 

SIC  RE 
3    20,2 

3    22,22 

2    23,3 

READ 
IF   CL: 
R 
R 

ENDIF 
ENDIF 


T    TO    CL:FILLED 


TO    CL: AGAIN 


hat   CASS   Already' 


2-To    ' 


t     » 

2  SAY    ' 
+  •    CLOSED' 

SAY    ■       1-To   Try   Again 
+  ' Return   To   Menu'' 

3  SAY     '     ■     GET    CLtAGAIN 

AGAINO'  1' 

ELEASE  ALL  EXCEPT  C:* 

ETURN 


^c  *)«  Jp    -^   ™- 

***** 


ENDIF 
ENEDO    <CL:REELY> 
3    20,22    SAY    • 
+  ' 

S    22,  18    SAY     • 
+  ' 

a    23,33    SAY    • 
+  « 

GO    TO    THE    OPEN    CASE 
ANE    CREDIT    CODE 


t 


FILE       AND    READ    THE    CURRENT    VLC 


STORE     M:CASE    TO    M:  KEY 
STCRE    ' 1E'     TC    MrTYPE 
DO    C:  XBBHNDLE 


STCRE 
STCRE 
STCRE 
STCRE 
STORE 
STCRE 
STORE 
STCRE 
STORE 


M:DATES,1, 
M:DATES,6, 
M:DATES,11 
DATES, 16 
DATES, 21 
DATES, 26 
DATES, 31 
DATES, 36 
DATES, U1 


: 


TO 

TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 


M:DDATE 

M:  RDATE 

M:OPEN 


M 
M 
M 

M 

H. 


LDATE 

SCRDATE 

IRDATE 

RIMDAT 

CLOSE 


M: REOPEN 


IF    H:  RDATE    =' 

M:LDATE 
a    20, 20    SAY 

+  '    C 
a    21 ,20    SAY 

+ '  Ac 
a    23, 20    SAY 
WAIT 
ERASE 


'.OR.     M:OPEN='  '     .OR.     ; 

='  • .OR.     M:RIMDAT    =     » 

'Key   Date/Dates    Are  Missing.' 

ASE    may    NOT' 

•Be    Closed   Until   Update   Is    '; 

ccmplished' 

'    Press    Any   Key    To   Continue' 


3    10,25    SAY    ******   Please    Standby    ****** 


ENDIF 


STORE  «1G'  T 
DO  C: XEBHNDL 
STORE    F    TO    C 


O    M:TYPE 

R 

L;FILLED 


*****       IF    THE    CASE    IS    COMPLETE    AND    READY    TO    BE    CLOSED 
IF    CL:  FILLED 


STORE    T    TO    CL: 
DO    WHILE   CL:VL 

a    16,26    SA 
GE 
READ 
IF    CL:VLC 


VLCT 
CT 

Y  'VENDOR  LIABILITY  CODE 
T  CL: VLC  PICTURE  «  A' 

=  *  • 
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a    23,3  0    SAY    'VENDOR    CODE    MAY    NOT    • 
+  'BE    BLANK' 
EL^  Z 

STORE    F    TO    CL: VLCT 
ENDTF 
ENDDO    <CL:VLCT> 
5)    23,30    SAY    ' 

+  »  ' 

RELEASE    CL:VLCT 

STORE    T    TO    CL: CRT 
DO    WHILE    CL:CRT 

a     17,26    SAY    'CREDIT    CODE  ' 

GET    CL:CR 
READ 
IF    CI:CR    =     ■     ' 

2    23,3  0    SAY     •    CREDIT    CODE    MAY    NCT 
♦'BE    BLANK' 
ELSE 

STORE    F    TO    CL:CRT 
END  IF 
ENDDO    <CI:CRT> 
a    23,30    SAY    ' 

+  •  • 

RELEASE    CL:CRT 


STORE 

a 


•     •    TO   CL:REPLY 


2    -    CHANGE 


20,22    SAY    '1     -    CLOSE    CASE 
+•3    -    EXIT' 
3    22,40    GET    CL :REPLY 
READ 
IF    CL: REILY    =     »3' 

RELEASE    ALL    EXCEPT    C:* 
EETUEN 
ENDIF 

IF    CL: REILY   =     '1' 
ER  ASE 

a     12,30    SAY    'CASE    NUMBER' 
a     12,44    SAY    M:CASE 
3     14,31    SAY     'IS    BEING    CLOSED' 
3     16,30    SAY     «       PLEASE    STANDBY' 

*****    TRANSIATE     LC:CIEATE    FROM    MMDDYY    TO    JULIAN    FORM 


TO 
TO 
TO 


V: 

V 

V 


MM 
DE 
YY 


STCEE    VAL  ($(LC:CLDATE,  1,  2) 
ST05E    VAL  \$  (LC:CLDATE,3,2 
STCEE    VAL  (S  (LC : CLDATE, 5 , 2 
DO    C:OJULIAN 
STCEE    V:JULEATE    TO    M:CLOSE 
RELEASE    ALL    IIKE    V:  * 
STCEE    M:CASE    TO    M:KEY 

*****    pUT    CLOSING    DATE    INTO     PROPER    FORMAT    FOR    STORAGE 

STCEE    $(M :DATES,41, 5)     TO    M:REOPEN 
STCRE    $(M :DAIES,1 ,35)     +    M:CLOSE    +; 

M:REOPEN    TO    CL:DATES 
STCRE    CL: DATES    TO    M:DATES 
STCEE    CL:  VLC    TO    M:VLC 
STCEE    CL: CR    TO    M:CR 
STORE    ' 1C '    TO    M:TYPE 
STCEE    M:REC1    TO   T:REC1 

DO    C:XDBHNDLR 

*****    CREATE    RECORD    IN    CLOSE1 

STORE    '3F '    TO    M:TYPE 
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DO    C:XDBHNDLR 

STCEE    M:CASE    TO    I:CASE 

RELEASE    ALL    LIKE    M:* 

STCEE    T:CASE    TO    M:CASE 

QSE    D:OPEN1    INDEX    D :OCAS E1 , D: ONSN 

GOTC    T:REC1 

DELETE 

STORE    *2B»     TO    MMYPE 

STCFE    T:CASE    TO    M:KEY 
DO    C:XDBHNDLE 

STORE    #    TC    T:REC2 
STORE    'UF'    TO    M:TYPE 

DO    C:XDBHNDLS 

STCFE    M:CASE    TO    T:CASE 
RELEASE    ALL    LIKE    M:* 
STCEE    T:CASE    TO    M:CASE 
QSE    D;OPEN2    INDEX    D:OCASE2 
GOTC    T:REC2 
DELETE 


STORE    F    TO    CL:ENTSR 
ERASE 
END  IF 
a)    20,22    SAY    f 

+  '  • 

5)    22,22    SAY    • 

+  «  » 

ERASE 
ENDIF    <CL:FILLED> 
ENDDC    <CL:MOFE> 
RELEASE    ALL    LIKE    CL : * 
RELEASE    ALL    LIKE    M:* 
RELEASE    ALL     LIKE    I:* 
STORE    T    TO    CL:CLCSE 
ENDDO    <CL:CLOSE> 


t  . 


*****    ENC    0F    PROGRAM 
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VII.     EfiTA    BASE    HANDLES    MODULE 


*********************************************************** 

**  ** 

**       DATE:    29   NOV    1 983  ** 

**       VERSICN:    1.0  ** 

**       MODULE    NAME:    XDBHNDLR  ** 

**       MODULE    PURPOSE:     TC    PROVIDE    ACCESS    TO    THE    DATA    BASE  ** 

**  RECORDS     FOB    READ    AND    UPDATE  ** 

**       MODULE    INTERFACE    DEFINITION  ** 

**  ** 

**  INPUTS:     M:CASE,    M:COGr     M:NSN,     M:CAT,     M:NOMEN,  ** 

**  M:UIC,    M:UI,     M:QTYDEF,    M:UPRC,    M:EPBC,  ** 

**  M:ORG.    M:DOC,    M:DOCNO,     M:  DATES,    M:REPCON,  ** 

**  M:FSCM,    M:TIME,    M:WHO,    M:NUM,    M:CR,    M:SCB,** 

**  M:SM,     M:09Q,     M:DEF,    M:VLC,    M:ACTPT,  ** 

**  M:SCRCTY,    M:REC1,    M:QTYINS,     M:QTYREC,  ** 

**  M:QTYSTK,    M:DEEV,     M:DEFR,     H:ITEM.     M:OVER,  ** 

**  M:OTF,    M:GOV,    M:DITEM,    M:CCOST,    M:WNTY,  ** 

**  M:WUC,    M:DIS,    M:DETAILS.     M: REPLY,  ** 

**  M:ACTTKN,    M:COSTC,    M:STATUSC,     M:CAUSEC,  ** 

**  M:RETC,    M:ACTDISP,    M:MFG,     M:LOT,     M:TYPE  ** 

**  ** 

**  OUTPUTS:     M:CASE,     M:C0G,     M:NSN,    M:CAT,     M:NOMEN,  ** 

**  M:UIC,    M:UI,    M:QTYDEF,    M:UPRC,    M:EPRC,  ** 

**  .  M:ORG,    M:DOC,     M:DOCNO,     M:DATES,  ** 

**  M:REPCON,    M:FSCM,    M:TIME,    M:WHO,     M:NUM,  ** 

**  M:CR,    M:SCR,    M:SM,    M:09Q,    M:DEF,    M:VLC,  ** 

**  M;AC1PT,    M:SCPQTY,    M:REC1,     M:CTYINS,  ** 

**  M:QTYREC,    M:QTYSTK,     M:DEFV,     M:DEFR,  ** 

**  M:ITEM,     MrOVER,    M:OTF,    M:GOV,    M:DITEM,  ** 

**  M:CCCST,    M:WNTY,    M:WUC,    M:DIS,    M:DETAILS,** 

**  M:  REPLY,    M:ACTTO,    M:COSTC,    M:STATUSC,  ** 

**  M:CAUSEC,    M  :RETC,     M:ACTDISP,    M:MFG,  ** 

**  M:L01,    M:TYPE  ** 

**  ** 

**  ** 

**       MODULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ACCEPTS    THE    TRANSACTION    TYPE    CODE    AND    ACCESSES  ** 

**  THE    DATA    BASE     [I.E.     OPEN1,    OPEN2,    CLOSE1,  ** 

**  OR   CLOSE2)      WITH    THE    DESIRED    OPERATION     (I.E.  ** 

**  READ,     READ/LCCK,     WRITE/UNLOCK,     UNLOCK)  .       THE  ** 

**  OPERATION    PERFORMED    DEPENDS    ON    THE    TYPE    CODE  ** 

**  RECEIVED.        THE    MODULE    WILL    RETURN    A    TYPE    CODE  ** 

**  TC   INDICATE    THE    SUCCESS    OR    FAILURE    OF    THE  ** 

**  OPERATION.  ** 

**  ** 

**       SUPERORDINATE    MODULES:     XOPEN2,    XUPDAT,    CLOSREC  ** 

**       SUBORDINATE     MODULES:    NONE  ** 

**       AUTHOR:    R.     G.    NICHOLS  ** 

**  ** 
***************************  ******************************** 

*****       THE    GENERAL    OPERATION    OF    THE    DATA    BASE    HANDLER 
*****       IS    BASED    ON    A    CASE    CONSTRUCT 

*****       M:TYPE    IS    THE    SELECTION    KEY    THAT    DETERMINES    THE 
*****       TRANSACTION    TC    PERFORM    -    THE    FIRST    DIGIT    REPRESENTS 
*****       TEE    FILE    THAT    IS    T0     BE    USED    AND    THE    SECOND    DIGIT 
*****       REPRESENTS    THE    TYPE    OF    ACTIVITY     (I.E.     READ    ACCESS 
*****       HITH    NSN    KEY,     BEAD    ACCESS    WITH    CASE    KEY,     READ/LCCK 
*****       WRITE    NEW    RECORD,    WRITE    UPDATE    UNLCOK,     RECORD    UNLOCK 

106 


*****       ETC.) 
DO    CASE 

*****       USE    CPEN1    DATA    BASE     FILE 
CASE 


E    3  (M:TY?E,1  .  1)    =    M1 

IF    $(M:TYPE,  2,  1)    =    'A'     .05.    $  (M:T  YPS  ,  2 ,  1)     =    'E1 

*****       IF    »Ai    THEN    ACCESS    BY    NSN 


IF    $(M:TYPE,2,  1)    =     'A1 

STORE    • USE    D:0PEN1    INDE 
ELSE 


X    D:ONSN»     TO    H:USEFILE 


*****       If    iEi    THEN    ACCESS    BY    CASE 


STORE    'USE    D:0PEN1    INDEX    D:0CASE1'    TO    H:USEFILE 
ENDIF 

*****       USE    INDIRECT     FILE    IDENTIFICATION    TO    SELECT    USE    FILE 

SH:USEFILE 
FIND    SM:KEY 

*****       SEARCH    FOR    DESIRED    RECORD.       IF    FOUND    RETURN    DATA 
*****       ELEMENTS     AND    SET    M:TYPE    TO    0    OTHERWISE    SET    M:TYPE 
*****      TC    9 

IF    #    =    0 

STORE    »9'     10    M:TYPE 

RELEASE    ALL    LIKE    H:* 

EETURN 
ELSE 

STORE    #    TC    M:REC 1 

STORE    CASE    TO    M:  CASE 

STORE    COG    TO    M:CCG 

STORE    NSN    TO    M:NSN 

STORE    CAT    10    MtCAT 

STORE    NOMEN    TO    M:NOMEN 

STORE    UIC    TO    M:OIC 

STORE    UI    TC    M:UI 

STORE    QTYDEF    TO     M:QTYDEF 

STORE    UPRC    TO    M: UPRC 

STORE    EPRC   TO    M:  EPRC 

STORE    ORG    TC    M:ORG 

STORE    DOC    10    M:DOC 

STORE    DOCNC    TO   M:DOCNO 

STORE    DATES    TO    M:DATES 

STORE    REPCCN    TO     M:REPCON 

STORE    FSCM    TO    M: FSCM 

STORE    TIME    TO    M: TIME 

STORE    WHO    TO    M:WHO 

STORE    NUM    TO    M:NUM 

STORE    CR     TC    M:CR 

STORE    SCR    TO    M:SCR 

STORE    SM    10    M:SM 

STORE    09Q    TC    M:09Q 

STORE    DEF    TO    M:DEF 

STORE    VLC    TO    M:VLC 

STORE    ACTFT    TO    M:ACTPT 

STORE    SCRCTY    TO     M:SCEQTY 

STORE    '0'     10    M:TYPE 

RELEASE    ALL    LIKE    H:* 

RETURN 
ENDIF 
ELSE 

IF    $(M:TYPE,  2,1)     =     'H«     .OR.    $ (M: TYPE, 2, 1 )     =    'I' 
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*****       S5AD    RSCOED    SPECIFIED    BY    M:REC1     (RECORD    NUMBER) 
*****       j5    RECORD    NOT    FOUND     5ETURN    ;2:IYP2    =    9    OTHERWISE 
*****       RETURN    THE    RECCED    ELEMENTS 

USE    D:OPEN1    INDEX    C;ONSN 
GOTO    H: REC1 
IF    #    <>     B:REC1 

STORE     »9«     TO     M:TYPE 

RELEASE    ALL    LIKE    H:* 

RETURN 
ELSE 

*****       IF    M:TYPE    =    I    IHEN    SKIP    TO    NEXT    RECORD    AND    READ 

IF    $(M:TYPE,2  ,  1)     =    «I' 

SKIP 
ENDIF 

STORE     f    TO    M:  REC1 
STORE    CASE   TO    M:CASE 
STORE    CCG    TO    M:COG 
STCRE     NSN    TO     M:NSN 
STORE    CAT    TO     M:CAT 
STCRE     NCMEN    TC    M:NOMEN 
STORE    UIC    TO     M:UIC 
STORE    UI    TO    M :UI 
STORE    CIYDEF    10    M:QTYDEF 
STORE    UPRC   TO    M:UPRC 
STORE    EPRC    TO    M:EPRC 
STCRE    CBG    TO    M:ORG 
STORE    CCC    TO     M:DOC 
STCRE    ECCNO   TO    M:DOCNO 
STORE    EAIES    TC    M:DATES 
STCRE    EEPCON    TO    M:REPCON 
STORE    ESCM    TO     M: FSCM 
STORE    TIME   TO    M:TIME 
STORE     WHO    TO     M:WHO 
STCRE     SUM    TO    M:NUM 
STORE    CR    TO    M :CR 
STCRE     SCR    TO     M:SCR 
STORE    SM    TO    M :SM 
STCRE    C9Q    TO    M:09Q 
STORE    DEF    TO    M:DEF 
STORE    VIC    TO    M:VLC 
STORE     ACTPT    TC    M:ACTPT 
STCRE    SCRQTY    TO    M:SCRQTY 
STORE     '0'     TO     MrTYPE 
RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
ELSE 

*****       TEE    FOLLOWING    SECTION    OE    CODE    UTILIZES    A    DELAY    LOOP 
*****       AND    a   LOCKING    MECHANISM    TO    ENSURE    THAT    ONLY    ONE    USER 
*****       IS    WRITING    TO    A    FILE     AT    ANY    GIVEN    TIME 

STORE    T    TC    H:FAIL 
DO    WHILE    H:FAIL 

STORE     0    TO    H:  LOOPCNTR 

STCRE    2    TO    H: CNTR 

USE   D:  EILESTAT 

*****       WHILE   OPEN1     IS    EEING    USEDr    ENTER    DELAY    LOOP 

DO    WHILE    0PEN1O'  • 

STOEE    H:CNTR-1    TO    H:CNTR 
IF     H:CNTR=0 

STORE   2    TO    H:CNTR 

STORE    H:LOOPCNTR+1    TO    H:LOOPCNTR 
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ENDIF 

*****       IF    IN   DELAY    LCCP    A    SHORT    PERIOD    0?    TIttE    DISPLAY    THE 
*****       FACT    THAT    THE    FILE    IS    CURRENTLY    IN    USE 

I?    H:L00PCNTF.=2 

3    23,16    SAY    'OPEN    CASE    FILE    CURRENTLY    IN    USE' 

+  '     -    PLEASE    STANDBY • 
ENDIF 

*****       CLOSE   OUT    THE    USE    FILE    THEN    REOPEN    IT    TO    CHECK    LATEST 
*****       STATUS    -    THE    FILE    MUST    FIRST    BE    CLOSED    AND    THEN 
*****       REOPENED    TO    CEECK    LAIEST    STATUS 

USE 

USE    D: FILE  STAT 

*****       DELAY    BEFORE    TRYING     AGAIN 

STORE    1    TO     H:DELAY 
DO    WHILE    H  :DELAY    <    5 

STORE    H: DELAY    +    1    TO    HrDELAY 
ENDEC 
ENDDO 

*****       if    FILE    NCT    IN    USE#     WRITE    OUT    YOUR    LOCK    INFORMATION 

5)    23,  16   SAY    ■  '; 

+     •  • 

8    23,16    SAY    •  FILE    LOCKED  '; 

+     '  » 

REEL    0F-EN1    WITH    C:  WHO 
USE 

*****       XF    TYP2    c    TRANSACTION    -    PERFORM    A    WRITE/UNLOCK 

IF    $  (M:TYPE,2,  1)     =    'C 
USE    D:FILESTAT 

*****       VERIFY    THAT    YCU    HAVE    WRITE    ACCESS    TO    THE    DATA    BASE 
*****       RESET   THE    LOCK    ON    THE    RECORD    AND    WRITE    OUT    THE 
*****       UPDATED    INFORMATION 

IF    CPEN1    =    C:WHO 

STORE    '  '     TO    M:TIME 

CSE    D:0PEN1    INDEX    D:ONSN,    D:0CASE1 
GCTO    M: REC1 
REPL    CASE    WITH     !  (M :  C  ASE)  ,  CO  G    WITH    !(M:COG),NSN    WITH; 

!(M:NSN),CAT    WITH     !  (M:CAT)   ,NOMEN    WITH    !  (M :  NOMEN)  ,  UIC    ; 
WITH     !(M:UIC),UI    WITH    !  (M:  U  I)  ,  QT  YDEF    WITH    M  :  QTYDEF  ,  UPRC    ; 
WITH    M:UFRC,EPRC    WITH    M:EPRC,ORG    WITH    !(M:ORG),DOC    WITH    ; 
j  /ft  :  DCC) 

REPL    COCNO    WITH     !  (M : DCCNO)  , DATES    WITH    !  (M : DATES)  , R EPCON    ; 
WITH     !  (M:REECON)  ,FSCM    WITH     !  (M  :  FSCM)  , TIME    WITH    !(M:TIME),; 
WHO     WITH    !(E:WHO),NUM    WITH     !(M:NUM),CR    riITH    !(M:CR),SCR    ; 
WITH     !(M:SCR),SM    WITH    !(M:SM),09Q    WITH    !(M:09Q) 
REPL    DEF    WITH    M:DEF,VLC    WITH    !  (M :  VLC)  ,ACTPT    WITH; 
!  (M: ACTFT)  ,SCRQTY    WITH    M:SCRQTY 

STORE    ■ 0'     TO    M: TYPE 
USE 

*****       UNLOCK    THE    DATA    FILE    FOR    OTHERS    TO    WRITE 

DSE    D:FILESTAT 
REPL    0PEN1     WITH    ■  ' 

USE 

RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
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ELSE 
*****       jF    TYps     d    THEN    PERFORM    BEAD/LOCK    WITH    NSN    ACCESS     KEY 

IF     $JH:TYPE#2.11«»  D*     .OR.    $  (M:  TYPE  ,  2  ,  1 )  =  'S  » 
IF    $  (M: TYPE, 2,1)     =    «D« 

STORE    'USE    D:OPEN1    INDEX    D:ONSN,     '; 
+    'D:OCASE1«     TO    H:USEFILS 

*****       ip    TYPE    C    THEN    PERFORM    READ/LOCK    WITH    CASS    ACCESS    KEY 

ELS  E 

STORE    ' DSE    D:OPEN1    INDEX    D:0CASE1,'; 
+'     D:ONSN'     TO    H: USEFILE 
ENDIF 
OSE    D:FILESTAT 

*****       CHECK   TO     SEE    IF    THE     USER    HAS    THE    FILE    LOCKED    FOR 
*****       WRITING 

IF    OPEN  1    =    C: WHO 
SH:USEFILE 
FIND    &M:KEY 

*****       CHECK   TO    SEE     IF    DESIRED    RECORD    EXISTS.       IF    SO    LOCK 
*****       THE    RECORD    BY    FILLING    THE    TIME    STAMP    AND    RETURN    THE 
*****       RECORDS    CONTENTS 

IF    #    =    0 

STORE    »9'     TO    M:TYPE 

USE    D: FILESTAT 

REPLACE    OPEN1     WITH    '  ' 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 
ELSE 

*****  CHECK   TO     SEE    IF    THE     RECORD    HAS    PREVIOUSLY    BEEN 

*****  LCCKED    FOR    UPEATE    -     EETURN    TYPE    =    1     IF    PREVIOUSLY 

*****  LCCKED    OTHERWISE    LOCK    THE    RECORD    BY    FILLING    IN    THE 

*****  TIMESTAMP    AND    BEAD   THE    RECORD 

IF       TIME    <>     •  « 

STORE    M'     TO    M:TYPE 
RELEASE    ALL    LIKE    H:* 
USE    D: FILESTAT 
REPLACE    OPEN1     WITH     '  • 

USE 
RETURN 

ELSE 

*****       READ    DATE/TIME    FOR    TIMESTAMP 

STORE         TO    H: DUMMY 
POKE    61440,     180-    44,     205,     33,; 
137,    22,     13.    240,     137,     14,     ; 
15,    240,     195 
SET    CALL    TO    61440 
CALL    H: DUMMY 
STORE    STR(PESK  (61456)  ,2)     TC 

H:HOUR 
STORE    STR(PEEK  (61455)  ,2)     TC 

H :  MI  N 
STORE    STRfPEEK  (61454)  ,2)     TC 

HtSEC 
IF    $  (H:HOUR,  1,1)  = 

STORE    0    +$  (H:HOUR,2,1)     ; 

TO    H:HOUR 
ENDIF 
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:MIN,  1,  1)  = 

RE  0+3 (H:MIN, 2, 1)  10 

H:HIH 

:  S  EC  ,  1 , 1 )  — 

RE  Q  +  $(H:SEC,2,  1)  TO 

H:SEC 


C:  JULIAN+H 
H:SEC  TO  M 
IME  WITH  M 
#  TO  M:REC 
CASE  TO  M: 


COG  TO  M 
N5N  TO  i*l 
CAT  TO  M 
NO MEN  TO 
UIC  TO  M 
01  TO  H: 


:C 
:N 
:C 

M 

:0 
01 


IF  $  (H 
STO 

ENDIF 
IF  $(H 

STO 

ENDIF 
SIORE 

REPL  T 
STORE 
SIORE 
STORE 
STORE 
SIORE 
SIORE 
STORE 
SIORE 
STORE 
SIORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
SIORE 
STORE 
SIORE 
STORE 
SIORE 
STORE 
USE  D: 
REEL  0 
USE 

RELEAS 
RETORN 
ENDIF 
ENDIF 
FNDIF 
ELSE 

*****  TYPE  F  WILL  BE  USED  TO  CREATE  NEW  RECORDS 

=  ip« 


QTYDEF  TO 
OPRC  TO  M: 
EPRC  TO  M: 
ORG  TO  M:0 
DOC  TO  M:D 
DOCNO  TO  M 
DATES  TO  M 
REPCON  TO 


FSCM  TO 
TIME  TO 
WHO  TO 
NOM  TO 
CR  TO  M 
SCR  TO 
SM  TO  M 
09Q  TO 
DEF  TO 
VLC  TO 
ACTPT  TO  M 
SCRQTY  TO 
•0'  TO  M:T 
FILESTAT 
PEN1  WITH 


M: 
M: 
M:  w 
M:N 
:CR 
M:S 
:SM 
M:0 
M:D 
M:V 


:HOUR    +H:MIN+; 

:TIME 

:TIME 

1 

CASE 

OG 

SN 

AT 

: NO  MEN 

IC 

M:QTYDEF 

UPRC 

EPRC 

RG 

OC 

:DOCNO 

:DATES 

M:REPCON 

FSCM 

TIME 

HO 

OM 

CR 

9Q 

EF 

LC 

:ACTPT 

M:SCRQTY 

YPE 


E    ALL    LIKE    H:  * 


*****       CFECK   TO    SEE 
*****       WRITING 


IF    $  (M: TYPE. 2,1)     : 
OSE    D:FILESTAT 

IF    THE     OSER    HAS    THE    FILE    LOCKED    FOR 


IF    OPEN1    =    C:WHO 
a     23,25    SAY    ■ 

+    'FILE 

OSE    D:OPEN1    INDEX    D:OCASE1,; 
D:ONSN 


OPDATING    CASE 
t 


***** 
***** 


IF    NC   CASE    NOMEER    HAS    BEEN    ASSIGNED    BECAUSE    OF 
PREVIOUS    CASE,    ASSIGN    A    NEW    CASE    NUMBER 

IF    M:CASE   =    •  ' 
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*****       CHECK   FOR    LAST    CASE     IN    THE    DATA    BASE    AND    ASSIGN 
*****       NExT    AVAILABLE    NUMBER 

GOTO    BOTTOM 

STORE    ${CASE,1,1)    TO    H:YB 

STORE    VALJ[$(CASE,2,  5)  }  +1    TO    ; 

h  "i  5  d  S I A  L 
I?    H:SERIAL    >    9999 
STORE    H:YR    +     : 
STR  (H:SERIAL,=>,0)     TO    M:CASE 
ELSE 

IF    H:SERIAL    >    999 

STORE    H:YR    +    '0'     +    ; 
STR<H:SERIAL,4,0)     TO    ; 
H:CASE 
ELSE 

IF    H:SERIAL    >    99 

STORE    H:YR    +    '00'    +  ; 
STR  (H:SERIAL,3,0)     TO; 
M:CASE 
ELSE 

IF    H:SERIAL    >    9 

STORE  H:  YR+'OOO' +; 
STR  (H:SERIAL,2,0)  ; 
TO  MrCASE 
ELS  E 

STORE    H:YR+'0000»; 
+  STR  (H:SERIAL, 1 r0)  ; 
TO    M:CASE 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

a)     23,26    SAY    'CREATING    NEW    RECORD' 
+'     -    OPEN1' 

*****       CREATE    NEW    RECORD    AND    FILL    WITH    DATA 

APPEND    BLANK 
REPL    CASE    WITH     !   (M :  C  ASE)  ,  CO  G    WITH    !(M:COG),NSN    WITH     ; 
!  (M:  NSN)  , CAT    WITH    !  ( M:CAT)  ,  NOMEN    WITH    !  ( M:  NOMEN)  ,  UIC    WITH; 
!(M:UIC[,UI    WITH    ! ?M:UI) .QTYDEF    WITH    H : QT YDEF, UPRC    WITH    ; 
M:UPRC,EPRC    WITH    M:EPBC,ORG    WITH     !jM:ORG),DOC    WITH     !(M:DOC) 
REPL    EOCNO    WITH     !  (M : DCCNO)  , DATES    WITH    !   (H : DAT ES)  , REPCON    ; 
KITH     !  <M:REECON)  ,FSCM    WITH     S (H:FSCM) , TIME    WITH    !(H:TIME),; 


WHO    WITH    I(C:WHOj,NUM    WITH     !(M:NUM),SI1    WITH     !(M:SM),09Q 

WITH     !(M:09Q),DEF    WITH    M:DEF,ACTPT    WITH    !(M:ACTPT) 

a)    23,26    SAY    '  • 

2    23,25    SAY    •  ' 

STORE    '0'     TO    McTYPE 

USE    D:FILESTAT 

REPL    OPEN1     WITH       '  ' 

U  SE 

RELEASE    ALL    LIKE    H: * 

RETUBN 
ENDIE 
EISE 

*****       IF    TYpE    G    THEU    UNLOCK    A    PREVIOUSLY    LOCKED    RECORD 
*****        (N0    UPDATE    WILL    TAKE     PLACE) 

IF   $  (M:TYPE.  2,  1)     =    «G« 
USE    DrFILESTAT 

*****       CHECK   TO    SEE    IF    THE    USER    HAS    THE    FILE    LOCKED    FOR 
*****       WRITING 

IF    OPEN1    =    C:  WHO 
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USE    D:0PEN1 
GOTO    M:REC1 

*****       CLEAR    THE    TIMESTAMP     TO    UNLOCK 

T  T7       fflTM  p       —        W  ■  T  T  M  T*1 

REPL    TIME    WITH    ' 
ENDIF 

USE    D:FILESTAT 
REPL    OPEN1     WITH    '  « 

USE 
ENDIF 

RELEASE    ALL    LIKE    H: * 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENDIF 

*****       US£    CPEN2    DATA    BASE    FILE 
CASE    $(M:TYPE,1, 1)    =    '2' 

*****       SINCE   OPEN2     HAS    A    SINGLE    KEY,     BOTH    TYPE    A    AND    B 
*****       MaY    BE    USED    FOB    ACCESS 

IF    $(M:TYPE,2.  1)     =    «A'     .OR.    $  (M  :T  YPE ,  2,  1)     =     'B' 

USE   D:OPEN2    INDEX     E:OCASE2 
FIND    &M:KEY 

*****       FIND    REQUESTED    RECORD    IF    FOUND    RETURN    THE    DATA 
*****       ELEMENTS     AND    TYPE    =    0,    OTHERWISE    RETURN    TYPE    =    9 

IF    #    =     0 

STORE    «9'     TO    M:TYPE 

RELEASE    ALL    LIKE    H:* 

EETURN 
EL  SE 

STORE    #    TC    M:REC1 

STORE    CASE   TO    M: CASE 

STORE    QTYINS    TO     M:QTYINS 

STORE    QTYREC    TO     M:QTYREC 

STORE    QTYSTK    TO     M:QTYSTK 

STORE    DEFV    TO    M:  DEFV 

STORE    DEFR    TO    M:  DEFR 

STORE    ITEM    TO    M:  ITEM 

STORE    OVER    TO    M: OVER 

STORE    OTF    IC    M:OTF 

STORE    GOV    TO    M:GCV 

STORE    TIME    TO    M:  TIME 

STORE    WHO    TO    M:WHO 

STORE    DITEM    TO    M:DITEM 

STORE    CCOST    TO    M:CCOST 

STORE    WNTY   TO    M:  WNTY 

STORE    WUC    TO    M:WUC 

STORE    DIS    TO    M:DIS 

STORE    DETAILS    TO    M:DETAILS 

STORE    REPLY    TO    M:REPLY 

STORE    ACTTKN    TO    M:ACTTKN 

STORE    COSTC    TO    M:COSTC 

STORE    STATUSC   TO    M:STATUSC 

STORE    CAUSEC    TO     M:CAUSEC 

STORE    RETC   TO    M: RETC 

STORE    ACTDISP    TO     M:ACTDISP 
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STORE    MFG    TO    M:MFG 
STORE    LOT    10    M:LCT 
STORE    ♦  Ol    TO    M:TYPE 
RELEASE    AIL    LIKE    H:* 
BET  URN 
ENDIF 
ELSE 

*****       if    TYPE    H    OR    I    ACCESS    BY    RECORD    NUMBER     (H:REC1) 

IF    $(M:TYPE,  2,1)     =     »H»     .OR.    $  (M :  TYP  E,  2, 1 )     =     'I' 

USE  D:0PEN2 
GOTO  M: REC1 
IF    #    <>    ft :REC1 

STORE     •!•     TO     M:TYPE 

RELEASE    ALL    LIKE    H:* 
RETURN 
ELSE 

*****       if    TYPE    I,    SKIP    TO    NEXT    RECORD    AND    READ    DATA 

IF    $  (M:TYPE,2,1)    =    'I« 

SKIP 
ENDIF 

STORE  #    TO    M:  REC1 

STORE  CASE   TO    M:CASE 

STORE  C1YINS    TO    M:QTYINS 

STORE  CTYREC    TO    M:QTYREC 

STORE  QTYSTK    TO    M: QTYSTK 

STORE  CEFV    TO    M:DEFV 

STORE  DEFR    TO     M:DEFR 

STORE  HEM    TO     M:ITEM 

STORE  OVER    TO    M:OVER 

STCRE  CTF    TO    M:OTF 

STORE  GOV    TO     M:GOV 

STORE  TIME   TO    M:TIME 

STCRE  WHO    TO     M:WHO 

STCRE  LITEM   TO    M;DITEM 

STORE  CCOST    TO    M:CCOST 

STCRE  WNTY    TO    M:WNTY 

STORE  ROC    TO     M:WUC 

STCRE  LIS    TO    M:BIS 

STCRE  DETAILS    TO    M:DETAILS 

STORE  BEPLY    TC    M:REPLY 

STORE  ACTTKN    TO    MiACTTKN 

STCRE  CCSTC   TO    MrCOSTC 

STORE  STATUSC    TO    MiSTATUSC 

STORE  CAUSEC    TO    M:CAUSEC 

STORE  RETC    TO    M:RETC 

STCRE  ACTDISP    TO    M:ACTDISP 

STORE  MFG    TO    M:MFG 

STORE  ICT    TO     M:LOT 

STORE  '0'     TO     M:TYPE 
RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
ELSE 

*****       THE    FOLLOWING    SECTION    REQUIRES    THAT    THE    DATA    BASE 
*****       BE    LOCKED    TO    ENSURE    ONLY    A    SINGLE    UPDATE    IS 
*****       PERFORMED    AT    A   TIME 

STORE    T    TC    H:FAIL 
CO    WHILE    H:FAIL 

STORE     0    TO    HrLOOPCNTR 

STORE     2    TO    H:  CNTB 

USE    D: FILESTAT 

*****       L0CP    WHILE    0PEN2    IS    LOCKED    BY    ANOTHER    USER 
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DO    WHILE    OPEN2<>»  ' 

STORE    H:CNIE-1    TO    H:CNTR 
IF    H:CNTE=0 

STORE    2     TO    H:CNTR 

STORE    H  :LOOPCNTR+1    TO    H:LOOPCNTR 
EN  D  I? 

IF    H:LOOPCNTR=2 
a)    23,16    SAY    'OPEN    CASE    FILE    CURRENTLY    IN'; 

+     ■     USE    -    PLEASE    STANDBY' 
ENDIF 

*****       CLOSE   AND    REOPEN    THE     FILE    STATS    TO    DETERMINE    ANY 
*****       CEANGE    IN    FILE    LOCKING    STATUS 

USE 

USE    D:FILESTAT 

*****       DELAY   BEFORE     NEXT    ATTEMPT    TO    ACCESS    THE    DATA    EASE 

STORE    1    TO    H:DELAY 
DO    WHILE    H :DELAY    <    5 

STORE    H: DELAY    +    1    TO    H:DELAY 
ENDEC 
ENDDO 

3    23,  16    SAY    ■  ■ 

+     «  ' 

*  a)    23,16    SAY    ■  FILE    LOCKED  ' 

+     '  • 

*****       WRITE   LOCK    TO    FILESTAT 

REPL    OPEN2    WITH    C:WHO 
USE 

*****       if    type    C    PERFORM    WRITE/UNLOCK 

IF    $ (M:TYPE,2 ,1)     =     'C* 
USE    E:FILESTAT 

*****       CHECK   TO     SEE     IF    USER     HAS    WRITE    ACCESS    TO    THE    DATA 
*****       BASE 

IF    CPEN2    =    C: WHO 

STORE    •  '     TO    M:TIME 

USE    D:OPEN2    INDEX    D:OCASE2 

*****       write   UPDATE    INFORMATION    TO    THE    FILE 

GOTO    M: REC1 


» 


REPL  STATUSC  WITH  !  (M:ST ATU SC)  ,CAUS EC  WITH  !  (M: C AUSEC)  , ; 
RETC  WITH  !  (M:RETC)  , ACTDISP  WITH  !  (M: ACTDISP)  , MFG  WITH  ; 
!  (M:  MFG)  ,LOT    WITH    !  (M:LOT) 

«  it  «  t\  — *  *      f\    m  f^  j^  mm    _      ti  *»  ^^  — ^ 


STORE    ' 0«     TO    M:TYPE 
DSE 


*****    UNLOCK   FILE    FOR    OTHERS    USE 

USE    D:FILESTAT 
REPL    OPEN2    WITH 
USE 
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RELEASE 
FETUEN 
END  IF 
ELSE 


ALL    LIKE    H:* 


*****       If    TYPE    D    OR    E    PERF0  5M    BEAD/LOCK 


IF     ${M:TYP 
CSE    D:F 


E.2,1)     =    •  D1     .OR.     ${M:TYPE,2,1) 
ILESTAT 


-     i7i 


***** 

V  t  ^r  v  ^ 


CHECK   TO    SEE     IF    USER     HAS    WRITE    ACCESS    TO    THE    DATA 
EASE 

IF    OPEN  2    =    C'WHO 

USE'  D:OPEN2    INDEX    D:OCASE2 
FIND    &M:KEY 


****  * 
***  *  * 


***** 
***** 


IF    DESIRED    RECCRD    FO 
CURRENTLY    IN    CSE    -    I 

IF    # 
S 

u 

R 
U 
R 
R 
ELSE 

IF    TIME ST  AMP    FILLED, 
TYPE    =    1 


UND    VERIFY    THAT    RECORD    IS    NOT 
F    NOT    FOUND    RETURN    TYPE    =    9 

=    0 
TORE    '9'     TO    M:TYPE 
SE    D:FILESTAT 
EPLACE    OPEN2    WITH    '  • 

SE 

ELEASE    ALL    LIKE    H: * 
ETUBN 


RECORD    IN    USE    -    RETURN 


IF       TIME    <>     •  ' 

STORE    M'     TO    M:TYPE 
RELEASE    ALL    LIKE    H:* 
USE    D:FILESTAT 
REPLACE    OPEN2    WITH     '  « 

USE 
RETURN 

ELSE 

*****       LCAC    TIME/DATE    INTO     TIMESTAMP    AND    READ    THE    RECORD 

STORE         TO    H: DUMMY 
POKE    61440,     180,    44,     205,     33,; 
137,     22,     13,     240,     137,     14,; 
15,    240,    195 
SET    CALL    TO    61440 
CALL    H " D UM MY 
STORE    STR(PEEK  (61456)  ,2)     TO 

H:HOUR 
STORE    STR(PEEK(61455) ,2)     TO 

H:MIN 
STORE    STR(PEEK  (61454)  ,2)     TC 

H:SEC 
IF    $  (H:HOUR,  1,1)  = 

STORE    0    +$  (H:HOUR,2,1)     ; 

TO    H:HOUR 
ENDIF 
IF    $  (H:MIN,  1,1)  = 

STORE    0  +  $  (H:MIN,2, 1)     TO    ; 

H:MIN 
ENDIF 
IF    $  (H:SEC,  1,1)  = 

STORE    0  +  3  (H:SEC,2, 1)     TO    ; 

H:SEC 
ENDIF 
STORE    C: JULIAN+H:HOUR    +H:MIN+; 

H:SEC    TO    M:TIME 
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REPL    TIME    WITH    M:TIME 
STORE    $    TO    M: REC1 
STORE    CASE    TO    M:CASE 
SIORE    QTYINS    TO    M:QTYINS 
STORE    QTYREC    TO    M:QTYSEC 
STORE    QTYSTK    TO    M:  QTYSTK 
STORE    DEFV    TO    M:DEFV 
STORE    DSFR    TO    H: DEFR 
STORE    ITEM    TO    M:ITEM 
STORE    OVER    TO    M:OVER 
STORE    OTF    TO    M:OTF 
STORE    GOV    TO    M:GOV 
STORE    TIME    TO    M: TIME 
STORE    WHO    TO    M:WHO 
STORE    DITSM    TO    M:DITEM 
STORE    CCOST    TO    M:CCOST 
STORE    WNTY    TO    M:WNTY 
STORE    WUC    TO    M:WUC 
STORE    DIS    TO    M:DIS 
STORE    DETAILS    TO    M: DETAILS 
STORE    REPLY    TO    M:REPLY 
STORE    ACTTKN    TO    MrACTTKN 
STORE    COSTC    TO    M:COSTC 
STORE    STATUSC    TO    M:STATUSC 
STORE    CAUSEC    TO    M:CAUSEC 
STORE    RETC    TO    M:RETC 
STORE    ACTDISP    TO    M: ACTDISP 
STORE    MFG    TO    M:MFG 
STORE    LOT    TO    M:LOT 
STORE    •()•    TO    M:TYPE 

*****       UK1GCK    DATA    BASE    FOR    OTHER    USERS 

USE    D:FILESTAT 
REEL    OPEN2    WITH    '  ' 

USE 

RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ELSE 

*****       TYPE    F    CREATES    NEW    RECORDS 

IF    $  (M: TYPE, 2,1)     =    'F' 
USE    D:FILESTAT 

*****       CHECK   TO    SEE     IF    USER    HAS    WRITE    ACCESS    TO    THE    DATA 
*****       EASE 

IF   OPEN2    =    C:WHO 
*  a)    23,25    SAY    «  UPDATING    CASE'; 

+    '     FILE  • 

USE    D:0PEN2    INDEX    D:0CASE2 

*****       ADE    THE    NEW    RECORD    AND    ENTER    DATA 

APPEND    BLANK 
REPL    CASE    WITH     !   (M : C ASE)  ,QT YINS    WITH    M :QTYINS , QTYREC    WITH; 

M:QTYREC, QTYSTK    WITH    M: QTY STK ,DEFV    WITH     ! (M: DEF V) , DEF R    ; 
WITH     MM:DEFR),ITEM     WITH    !( M:  ITEM)  .OVER    WITH     !(M:OVER),; 
OTF    WITH    !  (OTF), GOV    WITH    !j M : GOV)  , TIME    WITH    !  (M: TIME) 
REPL    WHO    WITH    !  ( C:  WHO)  , DITE  M    WITH    !  (M  :DITEM)  ,  WNT  Y    WITH    ; 
!(M: WNTY) , WUC    WITH     !(M:WUC),DIS    WITH    !( M  :  DIS)  .DETAILS    ; 
WITH    !  (M:DETAILS)  , ACTDISP    WITH    !  (M: ACTDISP)  ,  MFG    WITH    ; 
!  (M:  MFG)  ,LOI    WITH    !(K:LOT) 

STORE    'O*     TO    M:TYPE 
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*****    UNLOCK    DMA    BASE    FOR     OTHERS 

USE    L:FILESTAT 
REPL    OPEN  2    WITH       ' 
USE 

a)    23f25    SAY    • 
+     ' 

RELEASE    ALL    LIKE    H:* 
RETUBN 
ENDIF 
ELSE 

*****       IF    TYPE    G    PERFORM    UNLOCK     (NO    UPDATE) 

IF    $  (M:TYPE-2,1)     =     'G' 
USE    C:FILESTAT 
IF    0PEN2    =    C: WHO 
USE    D:0PEN2 
GOTO    M:REC1 
IF    TIME    =    M:TIME 

REPL  TIME  WITH  ■ 
ENDIF 


l:  FILESTAT 
0PEN2     WITH    ' 


ALL    LIKE    H:* 


*****       UNLOCK    DATA    BASE    FOR    OTHERS 

USE    D: 

REPL 
USE 
ENDIF 
RELEASE 
RETUBN 
ENDIF 
ENDIF 
•      ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENEIF 

*****  TYPES    3    AND    4    DEAL    WITH    CL0SE1     AND    CL0SE2 

*****  THE    METHODOLOGY    USED    FOR    THESE    TYPES    IS    THE    SAME 

*****  AS    poR    THE    0PEN1     AND    0PEN2    DATA    BASE    FILES 

*****  CKLY    DIFFERENCES    WILL    BE    NOTED    BELOW    SINCE    THE 

*****  EASIC   COMMENTS    ARE    THE    SAME    AS    ABOVE 


*****    TYpE    3    USES    CLCSE1 

CASE    $<M:TYPE,1  .  1)     =    '31 
IF   $(V.:~ 


(tCTYPE,^  ,  1)     =    'A'     .OR.    $  (M:TYPE,2,  1)     =     ■B' 
F$(M*TYPE21)     =     *A' 

STORE    •  UsVd:CL0SE1    INDEX    D:CNSN«    TO    H:USEFILE 
ELSE 

STORE    'USE    D:CL0SE1    INDEX    D:CCASE1'    TO    H:USEFILE 
ENDIF 

6H:USEFILE 
FIND    &M:KEY 
IF    #    =    0 

STORE    «9«     TO    M:TYPE 
RELEASE    ALL    LIKE    H:* 
RETURN 
ELSE 

STORE    #    TC    M:REC1 
STORE    CASE    TO    M: CASE 
STORE    COG    TO    M:COG 
STORE    NSN    10    M:NSN 
STORE    CAT    TO    M:CAT 
STORE    NOMEN    TO    M:NOMEN 
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STORE    UIC    TO    M:UIC 
cTORE    UT    Tr    H:0l 
STORE    QTYEEF    TO     M:QTYDEF 
STORE    U?RC    TO    M: UPPC 
STORE    EPRC   TO    H: EPRC 
STORE    ORG    TO    M:ORG 
STORE    DOC    TO    M:DOC 
STORE    DOCKC    TO    M:DCCNO 
STORE    DATES    TO    M:DATES 
STORE    REPCCN    TO     K:REPCON 
STORE    FSCM    TO    M: FSCM 
STORE    TIME    TO    M:  TIME 
STORE    WHO    TO    M:WHO 
STORE    NUM    TO    M:NUM 
STORE    CR    TC    M:CR 
STORE    SCR    TO    M:SCR 
STORE    SM    TC    M:SM 
STORE    09Q    TO    M:09Q 
STORE    DEF    TO    M:DEF 
STORE    VLC    TO    M:VIC 
STORE    ACTPT    TO    MrACTPT 
STORE    SCRCTY    TO     M:SCEQTY 
STORE    '0«     TO    M:TYPE 
RELEASE    AIL    LIKE    H:* 
BETURN 
ENDIF 
ELSE 

IF    $(M:TYPE,  2,1)     =     »H»     .OR.     $  (M :  TYPE,  2, 1 )     =     'I 
USE    D:CLCSE1 
GOTO    M: REC1 
IF    #    <>     M:REC1 

STORE     ■S1    TO    M:TYPE 

RELEASE    ALL    LIKE    H:* 

RETURN 
ELSE 

IF    $(M:TYPE, 2 ,1)     =     «I» 
SKIP 

ENDIF 

STCRE    #    TO    M: REC1 

STORE    CASE    TO     H:CASE 

STCRE    CCG    TO    M:COG 

STORE     NSN    TO     M:NSN 

STCRE    CAT    TO    M:CAT 

STCRE     NCMEN    TC    M:KOMEN 

STCRE    UIC    TO    M:UIC 

STORE    UI    TO    M :0I 

STCRE    CTYDEF    TO    M:QTYDEF 

STORE     UPRC    TO    M: UPRC 

STCRE    EPRC   TO    M:EPBC 

STORE    CRG    TO    M:ORG 

STCRE    ECC    TO    M:DOC 

STORE    ECCNO    TC    M:DCCNO 

STCRE    EATES    TO    M:DATES 

STORE    EEPCON    TO    M:REPCON 

STORE    FSCM    TO     M:FSCM 

STORE    TIME    TO    M: TIME 

STCRE    WHO    TO    M:WHO 

STORE     NDM    TO     M:NUM 

STORE    CR    TO    M :CR 

STORE    SCR    TO     M:SCS 

STCRE    SM    TO    M :SM 

STORE    CSQ    TO     M:09Q 

STCRE    EEF    TO    M:DEF 

STORE    VIC    TO    M:VIC 

STCRE     ACTPT    TO    McACTPT 

STORE     SCRQTY     TO    M:SCRQTY 

STORE     ,0«    TO    M:TYPE 

RELEASE    ALL    LIKE    H:* 

RETURN 
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ENDIF 
ELSE 

STORE    T    TC    H:FAII 
DO    WHILE    H:FAIL 

STORE     0    TO    H:  LOOFCNTR 

STORE    2    TO    H: CNTB 

USE    D: EILE5TAI 

DO    WHILE    CL0SE1O'  • 

STORE    H:CNTR-1    TO    H:CNTR 
IF    H:CNTR=0 

SIORE    2    TO    H:CNTR 

STORE    H:LOOPCNTR+1    TO    H:LOOPCNTE 
ENDIF 

IF    H:LOOPCNTR=2 
5)     23,16    SAY    'CLOSE    CASE    FILE    CURRENTLY    IN' 

t    •     USE    -    PLEASE    STANDBY' 
ENDIF 
USE 

USE    D:FILESTAT 
STORE    1    TO    H: DELAY 
DO     WHILE    H  :DELAY    <    5 

SICRE    H:DELAY    +    1    TO    H:DELAY 
ENDDO 
ENDDO 
3)    23,  16    SAY    •  '; 


+ 


i 


*  9    23,16    SAY    •  FILE    LOCKED       BY    '; 

♦     'CLOSE1  ' 

REPL    CLCSE1    WITH    C:WHO 
USE 

IF    $  (M:TYPE,2,1)     =     'C» 
USE    D:FILESTAT 
IF    CLOSE1     =    C:WHO 

STORE    '  •     TO    M:TIME 

CSE    D:CLOSE1    INDEX    D:CNSN,    D:CCASE1 
GOTO    M: REC1 
REPL    CASE    WITH     !  (M: C ASE)  ,CO G    WITH    !(M:COG),NSN    WITH    ; 
!  (H:  NSN)  ,  CAT    WITH    !   ( M  :CAT)  ,  NOMEN    WITH    !  (M:  NOMEN)  ,  UIC    WITH    ; 
!(M:UIC),UI    WITH    !  (M:UI)  .QTYDEF    WITH    M: QTYDEF ,UPRC    WITH    : 
M:UPRC,EFRC    WITH    M:EPEC,ORG     WITH     !(M:ORG),DOC    WITH     !(M:DOC) 
REPL     EOCNO    WITH     !  jM : DCCNO)  , DATES    WITH     !  (M : DATES)  , REPCON    ; 
WITH     !  (M:REECON)  ,FSCM    WITH     !  (M : FSCM)  , TIME    WITH    !(M:TIME),; 
mo     WITH    !(M:WHO)-NUM    WITH     !(M:NUM),CR    WITH    !(M:CR),SCR    ; 
WITH     !(M:SCE),SM    WITH    !(M:SM)/09Q    WITH    !(M:09Q) 
REPL    DBF    WITH    M:DEF,VLC    WITH    !  (M :  VLC)  ,  ACTPT    WITH     ; 
! (M: ACTPT) , SCRQTY    WITH    M:SCRQTY 

STORE    ' 0»     TO    M:TYPE 
DSE 

CSE    D:FILESTAT 
REPL    CLCSE1    WITH    '  ' 

CSE 

RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
EL  SE 

IF    J  (M:TYPE.2t1)  =•  D'     .OR.     $  (M:  T  YPE,  2,  1 )  =  »E» 
IF    $(M: TYPl,2,1)     =    »D» 

STORE    'USE    D:CL0SE1     INDEX    D:CNSN,     •; 
+    'D:CCASE1»    TO    H:USEFILE 
ELSE 

STORE    'USE    D:CLOSE1    INDEX    D:CCASE1,'; 
+    '     D:CNSN«    TO    H:USEFILE 
ENDIF 

USE    D:FILESTAT 
IF    CLOS  F1    =    C:WHO 
&H:USEFILE 
FIND    5M:KEY 
IF    #    =    0 

STORE    »9«     TO    M:TYPE 
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R 

ELSE 


USE    D:FILESTAT 

REPLACE    CL0SE1    W 

USE 

RELEASE    ALL    LIKE 

ETUEN 


IF   TIME 
STORE 
RELEAS 
USE  D: 
REPLAC 
USE 

RETURN 
ELSE 

STORE 
POKE  6 
137 
15, 
SET  CA 
CALL  H 
STORE 

H 
STORE 

H 
STORE 

H 

IF  $  (H 

STO 

ENDIF 
IF  $(H 
STO 

ENDIF 
IF  $(H 

STO 

ENDIF 
STORE 

REPL  T 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


<>  ' 

•  1'  TO 

E  ALL  L 
FILESTA 
E  CLOSE 


TO    H: 

1440,     1 
,    22,    1 
240,     1 
LL    TO    6 
:DUMMY 
STR(PEE 
:HOUR 
STR(PEE 
:MIN 
STR(PEE 
:SEC 
:HOUR,1 
RE    0    +3 
TO    H: 

:MIN, 1, 
RE  0  +  $  ( 
H :  MI  N 

:SEC, 1, 
RE  0+$( 
H:SEC 

C: JULIA 
H:SEC    T 
IME    WIT 
#    TO    H: 
CASE    TO 
COG    TO 
NSN    TO 
CAT    TO 
NOMEN    T 
UIC    TO 
UI    TO    M 
QTYDEF 
UPRC    TO 
EPRC    TO 
ORG    TO 
DOC    TO 
DOCNO    T 
DATES    T 
REPCON 
FSCM    TO 
TIME    TO 
WHO    TO 
NUM    TO 
CR    TO    M 
SCR    TO 
SM    TO    M 
090    TO 
DEF    TO 
VLC    TO 
ACTPT    T 
SCRQTY 


ITH 
H:* 


M:TYPE 

IKE    H:* 

T 

1    WITH     ' 


DUMMY 

80,    44 ,    205,    33 , ; 

3,     240,     137,     14,; 

95 

1440 


K  (61456)  ,2)  TC 
K(61455)  ,2)  TC 
K  (61454)  ,2)     TC 

,1)  = 

H( 

R 


(H: HOUR, 2,1) 
HOU.~ 


1)  = 

H:MIN,2,1)     TO 


1)  = 

H: SEC, 2,1)     TO 


N+H:HOUR    +H:MIN+; 
0    M:TIME 
H    M:TIME 
REC1 

M:CASE 
M:COG 
M:NSN 
M :  C  AT 
0*M:NOMEN 
M:UIC 
:UI 
TO    M:QTYDEF 

M:UPRC 

M: EPRC 
M:ORG 
M :  DOC 
0    H  : DOC NO 
0    M:DATES 
TO    M:REPCON 

M: FSCM 

M:TIME 
M :  W  HO 
M:NUM 
:CR 
M:SCR 
:SM 
M:09Q 
M:DEF 
M*  VLC 
0*M:ACTPT 
TO    M:SCRQTY 
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STORE    '0' 

TC 

i    M:TYPE 

USE    D:FIL! 

3STAT 

REPL    CLOS21 

WITH 

i 

USE 

RELEASE    ALL 

LIKE 

H:* 

BET URN 

—  M  n- 

^  It  . 

U-X  £ 

END 

I  ? 

END 

E 

LS 

E 

*****       FOR    TYPE    F,     A    NEW    RECORD    IS    CREATED    BY    TRANSFERRING 
*****       CATA    FroM    THE    OPEN    FILE    TO    THE    CLOSE    FILE 

IF    $  (M: TYPE, 2,1)     =    'F' 
USE    D:FILE5IAT 
IF    CLOSE1    =    C: WHO 

3)    23,25    SAY    ■  UPDATING    CASE'; 

+    •     FILE  • 

USE    D.-CLOSE1    INDEX    D:CCASE1,     ; 

C:CNSN 
APPEND    BLANK 

REPL    CASE    WITH     !   (M:CASE),COG    WITH    !   (M:COG).NSN    WITH     ; 
! (M:NSN) , CAT    WITH    !  (  M  :CAT)  ,  NOMEN    WITH    !(  M:  NOMEN)  ,  UIC    WITH; 
!(M:UIC),UI    WITH    !  ?M:UI) ,QTYDEF    WITH    M : QT YDEFf UPRC    WITH    ; 
M:UPRC,EPRC    WITH    M:EEEC,ORG    WITH     !(M:ORG),DOC    WITH     !(M:DOC) 
REPL    EOCNO    WITH     ! (M: ECCNO) , DATES    WITH    !   (M : DAT ES) , R EPCON    ; 
WITH     !  <a:BEECON)  ,FSCH    WITH     !  (M  :  FSCM)  ,  TIME    WITH    !(M:TIME),; 
WHO    WITH    !(C:WHO),NUM    WITH     !(M:NUM),SM    WITH    !(M:SM),09Q    ; 
WITH     !  (M:G9£)  ,DEF    WITH    M:DEF,ACTPT    WITH     !(M:ACTPT) 

STORE    '0'     TO    MrTYPE 
USE    DrFILESTAT 
REPL    CLOSE1    WITH       ■  ' 

USE 

3    23,25    SAY    '  '; 

+     '  • 

RELEASE    ALL    LIKE    H: * 
RETUBN 
ENDIF 
ELSE 

IF    $  (M:TYPE,  2,  1)     =    «G' 
USE    D:FILESTAT 
IF    CLOSE1     =    C:WHO 
USE    D:CLOSE1 
GOTO    M:REC1 
IF    TIME    =    M:TIME 

REPL    TIME    WITH    • 
ENDIF 

USE    D:FILESTAT 
REPL    CLOSE1     WITH    *  ■ 

USE 
ENDIF 

RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENDIF 

*****       TYpE    4    USES    CLCSE2    DATA    BASE    FILE 

CASE    $jM:TYPE,1, 1)    =    *U* 

IF    $  (M:TYPE,  2,  1)     =    'A*     .OR.    $  fM  :  T  YPE  ,  2  ,  1)     =     'B' 
USE   D:CLOSE2    INDEX     D:CCASE2 
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FIND    SM:KEY 
IF    #    =    0 

STORE    '9'     10    M:TYPE 
RELEASE    AIL    LIKE    H:* 
BETURN 

STORE    #    TC    M:H2C1 
STORE    CASE    TO    8:  CASE- 
STORE    QTYINS    TO     M:QTYINS 
STORE    QTYEEC    TO     M:QTYREC 
STORE    QTYSTK    TO     M:QTYSTK 
STORE    DEFV    TO    M: DEFV 
STORE    DEFB   TO    H:  EEFR 
STORE    ITEM    TO    M: ITEM 
STORE    OVEB    TO    M: CVEB 
STORE   OTF    TC    S:OTF 
STORE    GOV    TO    M:GOV 
STORE    TIME    TO    M:  TIME 
STORE    WHO    TO    M:WHO 
STORE    DITEM    TO    M:DITEM 
STORE    CCOST    TO    M.'CCOST 
STORE    WNTY    TO    M:  WNTY 
STORE    WUC    TO    M:WUC 
STORE    DIS    10    M:DIS 
STORE    DETAILS    TO     M: DETAILS 
STORE    REPIY    TO    M:REPLY 
STORE    ACTTKN    TO     M:ACTTKN 
STORE    COSTC    TO    M:COSTC 
STORE    STATUSC   TO     M:STATUSC 
STORE    CAUSEC    TO    M:CAUSEC 
STORE    RETC   TO    M: BETC 
STORE    ACTDISP    TO     M:ACTDISP 
STORE    MFG    TO    M:MFG 
STORE    LOT    10    M:LCT 
STORE    '0'     TO    M:TYPE 
RELEASE    All    LIKE    H:* 
BETURN 
P.NDIF 
ELSE 

IF    $(M:TYPE,  2,1)     =     'H'     .OR.     $  (M :  TYPE,  2, 1 )     =     fI 
USE    D:CLCSE2 
GOTO    M:REC1 
IF    #    <>     M:REC1 

STORE     »S»     TO     M:TYPE 

RELEASE    ALL    LIKE    H:* 

RETURN 
ELSE 

IF    $ (M:TYPEf 2 , 1)     =     »I» 
SKIP 

ENDIF 

STORE     #    TO    M:  BEC1 

STORE    CASE    TO     M:CASE 

STORE    CTYINS    TO    M:QTYINS 

STORE     CIYREC     TO    M:QTYREC 

STORE    C.TYSTK    TO    M:QTYSTK 

STORE    EEFV    TO     M: DEFV 

STORE    EEFR   TO    M: CEFR 

STORE    HEM    TO    M:ITEM 

STCRE    CVER    TO    M:OVER 

STORE    CIF    TO    M:OTF 

STCRE    GCV    TO     M:GOV 

STORE     TIME    TO     M:TIME 

STCRE    WHO    TO     M:WHO 

STORE    CITEM    TO    M:DITEM 

STCRE    CCOST    TO    M:CCOST 

STORE     WNTY    TO     M: WNTY 

STORE    WUC    TO    M:WUC 

STORE    DIS    TO    M:DIS 

STORE    DETAILS    TO    M-.DETAILS 
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STORE    REPLY    TC    M:R2PLY 
STORE     ACTTKN    TO    H: ACTTKN 
STORE    CCSTC    TO    M:COSTC 
STORE     STATUSC    TO    M:5TATUSC 
STORE    CAUSEC    TO    MrCAUSEC 
STORE     BETC    TO    H:BETC 
STORE     ACTDISP     TO    M:ACIDISP 
STORE     f.FG    TO    M:MFG 
STORE    LOT    TO     M:LOT 
STORE     '0'    TO     F.:TYPE 
RELEASE    ALL    LIKE    H:* 
RETURN 
ENDIF 
ELSE 

STORE    T    TC    H:FAIL 
CO    WHILE    H:FAIL 

STORE     0    TO    H:  LOOPCNTR 

STORE     2   TO    H: CNTB 

USE    D: FILESTAT 

DO    WHIIE    CL0SE2O'  ' 

STORE    H:CNTR-1    TO    H:CNTR 
IF    H:CNTR=0 

STORE    2    TO    H:CNTR 

STORE    H:LOOPCNTR+1    TO    H:LOOPCNTR 
ENDIF 

IF     H:LOOPCNTE=2 
a)     25,16    SAY    'CLOSE    CASE    FILE    CURRENTLY    IN    USE    ' 

♦    •-    PLEASE    STANDBY' 
ENDIF 
USE 

USE    C:FILESTAT 
STORE    1    TO    H:DELAY 
DO     WHILE    H  :DEIAY    <    5 

STORE    HtDELAY    +    1    TO    H:DELAY 
ENDDC 
ENDDO 

a     23, 16    SAY    « 
REFL    CLCSE2    WITH    C:WHO 
USE 

IF    $  (M:TYPE,2,  1)    =    'C 
USE    E:FILESTAT 
IF    CIOSE2    =    C:WHO 

STORE    '  '     TO    M:TIME 

CSE    D:CLOSE2    INDEX    D:CCASE2 
GOTO    H:  REC1 
REPL    CASE    WITH     !    (M  :  C  ASE)  ,QT  YINS    WITH    M: QTYINS , QTY R EC    ; 
WITH    M:QTYREC,QTYSTK    WITH    M : QTYSTK, DE FV    WITH     !?M:DEFV),; 
DEFR     WITH    !  (M:DEFR)   .ITEM    WITH     !  (M:ITEM)  ,  OVER    WITH     ; 
!  (M:OVER) ,OTF    WITH     !    (CTF)rGOV    WITH     !  (M: GOV)  , TIME    WITH     ; 
!  JM:TIME) 

REPL     WHO    WITH    !   (  M:  WH  C)  .  DITE  M    WITH    !  (M  :  DITEM)  ,  CCOS  T    KITH    ; 
M:CCOSTrWNTY    WITH    !  (  M:  WN  TY)   r  WUC    WITH     !(M:WUC)/DIS     WITH     ; 
!  (M:DIS)  ,DETAILS    WITH    !  (  M:  D  ET  AILS)  ,     REPLY    WITH    !(M:REPLY),; 
ACTTKN    KITH    !  (M:  ACTT  KK)  .COS  TC    WITH    !(M:COSTC) 
REPL    STATUSC   WITH    !  ( M :STATU SC)  ,CA USEC    WITH     !  { M: CA USEC)  ,  ; 
RETC     WITH    !  (M: RE TC)  , ACTDISP    WITH     !( M: ACTDISP)  , MEG    WITH    ; 
!(M:MFG)fLOT    WITH    !   (M:LOT) 

STORE    •  0'    TO    M: TYPE 
DSE 

CSE    D:FILESTAT 
BEPL   CLCSE2    WITH    '  • 

USE 

RELEASE     ALL    LIKE    H:* 
RETURN 
ENDIF 
EL  SE 

IF     $  <M:TYPE,2,1)     =     '  D'     .OR.     $  (M  :  TYP  E,  2  ,  1 )     =     'E» 
USE    D-.FILESTAT 
IF    CLOSE2    =    C:WHO 
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USE 
FIND 
IF  # 
S 

u 

B 

U 
R 

R 

ELSE 

I 


D:CL0SE2    INDEX    D:CCAS22 

&M:KEY 

=    G 
TORE    • 9»     TO    M:TYPE 
SE    D: FILESTAT 
SPLICE    CLOSE2    WITH    '  ■ 

SE 

ELEASE    ALL    LIKE    H:* 
ETURN 


F       TIME 
STORE 
RELEAS 
USE    D: 
REPLAC 
USE 

RETURN 
LSE 

STORE 
POKE    6 

22, 
SET  CA 
CALL  H 
STORE 
STORE 
STORE 
IF    $JH 

STO 
ENDIF 
IF    3(H 

STO 
ENDIF 
IF    $(H 

STO 
ENDIF 
STORE 

TO 
REPL  T 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
USE  D: 
REPL    C 


<>    i 

•1  »    TO    M:TY?E 

E    ALL    LIKE    H:* 

FILESTAT 

E    CLOSE2    WITH 


TO    H: DUMMY 
1440,     180,     44, 
13,    240,    137, 
LL    TO    61440 
:  D  UM  M  Y 
STR(PEEK (6 
STR(PEEK(6 
STR(PEEK(6 
HOUR,1  ,1) 

(H:  HOUR,  2,  1)     TO    H:  HOUR 


205,     33,     137,     : 
14,     15,    240,     195 


1456)  ,2)     TO    H:HOUR 

1455" 

1454 


)  ,2)     TC    H:MIN 
)  ,2)     TO    H:SEC 


RE    0 


it 


:MIN,  1,  1)  = 

RE    0+$(H:MIN,2 

:SEC,  1,1)  = 

RE    0  +  S  (H:SEC,2 


,  1)     TO    H:MIN 


C:JULIAN+H 
M  :  TI M  E 
IME    WITH    M 
#    TO    M:REC 
CASE    TO    M: 
QTYINS    TO 
QTYREC    TO 
QTYSTK    TO 
DEFV    TO    M: 
DEFR    TO    M: 
ITEM    TO    M: 
OVER    TO    M: 
OTF   TO    M:0 
GOV    TO    M:G 
TIME    TO    M: 
WHO    TO    M:W 
DITEM    TO    M 
CCOST    TO    M 
WNTY    TO    M: 
WUC    TO    M:W 
DIS    TO    M:D 
DETAILS    TO 
REPLY    TO    M 
ACTTKN    TO 
COSTC    TO    M 
STATUSC    TO 
CAUSEC    TO 
RETC    TO    M: 
ACTDISP    TO 
MFG    TO    M:M 
LOT    TO    M:L 
•0»     TO    M:T 
FILESTAT 
LOSE2    WITH 


,  1)     TO    H:SEC 
:HOUR+H:MIN+H:SEC; 

E 


:TIM 

1 

CASE 

M:QT 

M:QT 

M:QT 

DEFV 

DEFR 

ITEM 

OVER 

TF 

OV 

TIME 

HO 

:DIT 

:CCO 

WNTY 

UC 

IS 

M:D 
:REP 
M:AC 
:COS 

M:S 
M:CA 
RETC 

M:  A 
FG 
OT 
YPE 


YINS 
YRSC 
YSTK 


EM 
ST 


ETAILS 

LY 

TTKN 

TC 

TATUSC 

USEC 

CTDISP 
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USE 

RELEASE 
RETURN 
SNDIF 
SNDIF 
ENDIF 
ELSE 


ALL  LIKE  H:* 


*****   FCR  TYPE  F.  A  NEW  RECORD  IS  CREATED  BY  TRANSFERRING 
*****   DATA  fhom  THE  CPEN  FILE  TO  THE  CLOSE  FILE 


IF    $ (H: TYPE. 2,1)     =    »F" 

USE    D:FILESTAT 
IF    CLOSE2    =    C: WHO 

USE    D:OPEN2    INDEX    D:OCASE2 
FIND    SM:CASE 
IF    #    <>    0 

+     '     FILE  • 

USE    D:CLOSE2    INDEX    D:CCASE2 
APPEND    BLANK 


REPL    CASE    WITH     !   (M:CASE),< 
M:QTYEEC,QTYSTK    WITH    M:fr 


)TYINS    WITH    M:QTYINS,QTYREC    WITH 
^YSTK    DEFV    WITH     !  (MiDE^V)     DEER 
WITH     !  (MtDEFR)  ,ITEM     WITH    !(  M  :  if  EM)  /OVER    WITH*  !  (M  :  OVER)  ,  ;  " 
OTF    WITH    !<OTF),GOV     WITH    !( M :  GOV)  ,  TIME    WITH    !(M:TIME) 
BEPL    WHO    WITH    ! I C: W HC) , DITE M    WITH    !  (M:  DI  TEM)  ,  WNTY     WITH     ; 
!  (M:  WNTY)  ,WUC    WITH     !(M:WUC),DIS    WITH    ! (M : DIS ) , DET A IL S    : 
WITH     !  (M:DETAILS), ACTDISP    WITH    !  (M: ACTDISP)  , MEG 
!(M:MFG),LOT    WITH    !(M:LOT) 


WITH 


STORE    '0'     TO    M:TYPE 
USE    D: FILESTAT 
REPL    CLOSE2    WITH       ' 
USE 

3    23,25    SAY    ' 
'    +     • 


E 
ENDI 
EISE 

IF  $ 
U 
I 


RELEASE 
RETURN 

NDIF 

F 


ALL    LIKE    H:* 


(M: 

SE 


TYPE, 2.1)     = 


C:  FILESTAT 
CLOSE2    =    C: WHO 
USE    D:CLOSE2 
GOTO    M:REC1 
IF    TIME    =    M:TIMS 

REPL    TIME    WITH    • 
ENDIF 

USE    D: FILESTAT 
REPL    CLOSS2    WITH    ' 


ENDCAS 
RETURN 


USE 
ENDIF 
RELEASE 
RETURN 
ENDIF 
EKDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENEIF 
E 


ALL  LIKE  H:* 


*****  END  0F  PROGRAM 
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VIII.    SUPERVISOR    MENU 


*********** *************** ********* *************** ********* 

**  ** 

**       DATE:     11   JANUARY     1984  ** 

**      VEBSICN:    1.0  ** 

**       MODULE    NAME:    SUPKENU1  ** 

**       MODULE    PURPOSE:     PROVIDE     MENU    FOR    SUPERVISOR    TO  ** 

**                           ACCESS    QDR    SYSTEM    PROGRAMS  ** 

**  ** 

**       MODULE    INTERFACE    DEFINITION  ** 

**               INPUTS:     C:WHO.    C:JULIAN  ** 

**               OUTPUTS:     NONE  ** 

**       MODULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**                          THE    SUPERVISOR    IS    PRESENTED    WITH    A    MENU    OF  ** 

**                           ALL    PROSESSING    CAPABILITIES    AVAILABLE.     AFTER  ** 

**                          ONE    IS    CHOSEN,    THE    MODULE    THEN    CALLS    THE  ** 

**                           DESIGNATED    PROGRAM    INTO    ACTION    OR    LOGS    THE  ** 

**                           SUPERVISOR    CUT    OF    THE    QDR    SYSTEM  ** 

**  ** 

**       SUPERORDINATE    MODULES:     LOGON  ** 
**       SUBORDINATE     MODULES:    MENU1  ,C-RE ASGN, UTILMENU , SUPRPTS, ** 

**                                                              SUPRPT2  ** 

**       AUTHCR:    J.  G.     BCYNTON  ** 

**  ** 
***************************  ******************************** 

ERASE 

STORE    T    TO    V:CONTINUE 
DO    WHILE    V:  CONTINUE 
STORE     •     '    TC   V: CHOICE 

TEXT 


WELCOME  TO  THE  QDR  SUPERVISOR  MENU 


1  -  MAIN  MENU  PROCESSING 

2  -  CASE  REASSIGNMENT 

3  -  ANALYST  WORKLOAD  STATISTICS 

4  -  UTILITY  PROGRAMS 

5  -  REPORT  GENERATION 

6  -  YEAR  END  PROCESSING 

7  -  SORTED  LISTINGS 

8  -  EXIT  FROM  THE  SYSTEM 


ENTER  YOUR  CHOICE 


ENDTEXT 

3    21,30    GET    V:CHOICE 

READ 

IF  V:CHOICE    >=    1     .AND.    V: CHOICE    <=    8 

1 

DO    CASE 

CASE   V: CHOICE=    1 

RELEASE    ALL    LIKE    V:* 
DO   C:MENU1.PRG 


127 


ELSE 


CASE    V: CHOICZ=    2 

RELEASE    ALL    LIKE    V 
DO    C:C-REASGN .PEG 

CASE    V: CHOICE=    3 

RELEASE    ALL    LIKE    V 
DO    C:SIATG2N. FRG 

CASE    V: CHOICE=    4 

RELEASE    ALL    LIKE    V 
DO    C: UTILMENU.PRG 

CASE    V: CHOICE=    5 

RELEASE    ALL    LIKE    V 
DO    C:SUFRPTS. FRG 

CASE    V: CHOICE=    6 

RELEASE    ALL    LIKE    V 
DO    C: IE ABEND.  FRG 

CASE    V:CHOICE=7 

RELEASE    ALL    LIKE    V 
DO   C:SUFRPT2. FRG 

CASE    V: CHOICE=    8 

RELEASE    ALL    EXCEPT 
ERASE 
RETURN 
ENECASE 
ERASE 

STORE    I   TO     V: CONTINUE 
STOFE     •    ■     TC    V:CHCICE 


C:* 


<    FIEASE    ANSWER    WITH 
ENDIE    <V:CHCICE> 
ENDDO    <V:CCNTINUE> 
*****    ENC    0F    PROGRAM 


1    -    8    ONLY    >» 
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IX.     SUPERVISOR    UTILITY    MENU 


** 
** 

** 

** 
** 
** 
** 

** 
** 
** 

Jp   >|V   J^    2^ 


*******  *#**  ************************:*:***************** 

Date:    16   January    1984 

Version:    1.0 

Module    Name:    UTIIMENU 

Module    Purpose:    Provide    Supervisor    with   menu   of 

utility    programs   available  to    him. 

Module    Interface   Definition 

Inputs:    C:WHO,   C:JULIAN 

Outpuxs:     None 
Module    Processing   Narrative    Description: 

Displays   menu  of  all   utility    programs  avail- 
able  to   the   supervisor.    Calls   the    appropriate 
program   after   user    selection.    Additional    level 
of   security    required    for    packing   Data  Base. 

Superordinate    Modules:    SUPMENU1 

Subordinate    Modules:      ANALYST, PASS ,COGUPDT, ADDRUPDT , 

STATGEN,COGCNT,UTILNDX,DBPACK 
Author:    J.G.     BOYKTON   6     E.G.    NICHOLS 

*******  ****************  ****************************** 


** 

** 

** 
** 

** 
** 
** 
** 

** 


STORE    T    TO    U:CONTINUZ 


*****      Display    Options    Available   To    The   Operator 

DO    WHILE    U:  CONTINUE 
E  R  AS  E 

a    6,25    SAY    ******    Utility   Processing    ****** 
a    9,29    SAY    »1    -    Analyst    Update' 


5)  $+1,29  SAY 
a>  $+1,29  SAY 
a)  $+1,29  SAY 
a)  $+1,29  SAY 
3  $+1,29  SAY 
a)  $+1,29  SAY 
a)  $+1  ,29  SAY 
a)  $+1,29  SAY 
STCRE  «  'TO  U 
a)  19,40  GET  U 
READ 


2  -    Password    Processing* 

3  -    COG   Update' 

4  -    Address   File    Upda-e' 

5  -    Internal   Statistics    Update' 

6  -    Cog  Count' 

7  -   Be-Index    Index    Files    For   The   Svstem' 

8  -    Clean    Up   The   Database     (Pack) ' 

9  -    Exit   To   Supervisor    Menu' 
REPIY 

REPIY    PICTURE    «9« 


*****      Accept   Menu    Selection 

DO    WHILE    U:REPLY    <    M«     .OR.    U:REPLY    >    »9' 
a)    23,32    SAY    'Enter    1     -    9    Only'    +    CHR  (7) 
a)     19,40    GET    U:REFLY   PICTURE    *9« 


READ 
ENEDO 


*****      call   Routine    Necessary    To    Perform   Desired    Function 

DO    CASE 

CASE    U:REPLY    =     '9' 
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RELEASE    ALL    LIKE    U :* 
BETORN 

CASS    U: REPLY    =    '1' 

DO    C: ANALYST 
CASE    U:RSPLY    =    '2' 

DC    C:  ?  A  SS 
CASE    U:REPLY    =    '3» 

DO    C:COGUPDT 
CASE    UrREPLY    =     '4' 

DO   C:ADDRUPCT 
CASE    U:REPLY    =    '5' 

DO    C:STATGE» 
CASE    UrREPLY    ■    '6' 

DO    C:COGCNT 
CASE    U:REPLY    =    »7' 


*****      Display    Warning  Tc  The   Operator 


ERASE 


a 

5) 

a 

a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 


1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

17 

18 

19 


25 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 
i 


STORE 
a    21,40 
READ 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

•  TC 

GET 


** 

* 

* 

* 
* 
* 

* 
* 


***  Data  Base  Reindex  ****** 
************** 

WARNING 

This  Program  Will  Delete 
All  Index  Files  and  Then 
Will   Re-Index   All    Files 

If    Existing    Files    Are 
Large,    This   Could   Take 
Hours 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


U: 
U:R 


************** 

Are    You   SURE   You    Want    To' 
Continue* 
<Enter   Y  or    N>'    +   CHR  (7) 
REPLY2 
EPLY2 


*****      Accept   Response   From    User 


DO    WHILE    !  (U:REPLY2)  <>•  Y'     .AND.     !  (U 

a    23,32    SAY    'Enter   Y    or    N   Only*    +    CHR  (7 

a    21,40    GET    U:REPLY2    PICTURE    *A» 

READ 

ENDDO 

a    23,32    SAY    ■  • 

a     17,40    SAY     '     ' 


REPLY2) <>• N» 


*****    Accept  and   Verify   Password    Before   Executing   Reguest 

IF    U:REPLY2    =    »!■ 

a   21,30    SAY    'Enter    Your    Password    ' 

STORE    '  '    TO    U:PASSWORD 

SET    CONSCLE    OFF 

ACCEPT    TC    U:PASSWORD 

SET    CONSCLE    ON 

IF    U:PASSWORD    <>    '  ■ 

USE    DtTECHCODE    INDEX    D:TECH 

FIND    SCrWHO 

IF    PSWD    =    U:  PASSWORD    .AND.     #    <>    0 

DO    C:UTILNDX 
E  LSE 

a    23,18    SAY    'Reguest    ABORTED   -    Strike    • 
♦•Any   Key   To   Continue' 


130 


WAIT 
ENDIF 
ENDIF 
ENDIF 
CASE    U:REPLY    =     '8' 
DO    C:DBPACK 
ENDCASE 
ENDDO 

*****    ENE    CF   PROGRAM 
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X.    USSR     REPORT    MENU 


*********************************************************** 

**  ** 

**      Date:    11  January    1984  ** 

**      Version:    1.0  ** 

**      Mcdule    Name:    RPTMENU  ** 

**      Mcdule    Purpose:     Allow  analyst   to   receive   a  listing  ** 

**                                            cf   his    current   open    cases.  ** 

**      Mcdule    Interface   Definition  ** 

**              Inputs:    C:»HO,    C:JULIAN  ** 

**             Outputs:     None  ** 

**      Module    Processing   Narrative   Description:  ** 

**  ** 

**                      Menu    is    provided    in   order   to   select  a    listing  ** 

**                      cf  open    cases   that   belong    to    the    Analyst  ** 

**                       making   the   reguest.    If   report    listing    is  ** 

**                       chosen,    then    module    OCASERPT    is    called.    Exit  ** 

**                      is   to   return   to    MENU1.  ** 

**      Supercr dinate   Modules:    MENU1  ** 

**      Subordinate    Modules:    OCASEBPT  ** 

**       Author:    J.G.     BCYNTON  ** 

**  ** 
*********************************************************** 

STORE    T    TO    C:TRUE 
DO    WHILE    C:TRUE 
ERASE 
* 

STORE     •     •    TC    V:CHOICE 
IEXT 

*****      qqeRY    REPORT    AVAILABLE       ***** 


1  -   Openfile    by   Case 

2  -    Exit 


Enter    Your    Choice 

ENDTEXT 

5)    19,38    GET    V:CHOICE 

READ 

* 

IF  V:CH0ICE  >=  » 1«  .AND.  V:  CHOICE  <=  «2' 

* 

DC  CASE 

CASE    V:CH0ICE    =    '  1« 
DO    C:OCASERPT 
CASE    V:CH0ICE    =    »2' 

STORE    F    TC    C:TRUE 
ENECASE 

ELSE 

?       '  <    Please    Answer    With    a    1    -    2    ONLY    >' 
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?     '  .        PRESS    ANY    KEY    TO    CONTINUE" 

WAIT 
ENDII    <V:CHCICS> 
ENDDO    <C:TBOE> 
RiiLEASi:    ILL    LIKE    V  :.  * 
RELEASE    C:TRUE 

*****    ENE    0F    PROGRAM 


133 


XI.     SUPERVISOR    REPORT    MENU 


*^«******«5!t**********^*^***^>!t«***************  ************** 

**  ** 

**  Date:    15  January    1984  ** 

**  Version:    1.0  ** 

**  Module    Name:    SUPFFTS  ** 

**  Module    Furpose:     Provide    Supervisor    a   menu   of  ** 

**                                           available    reports.  ** 

**  ** 

**  Module    Interface    Definition  ** 

**              Inputs:     C:WHO,    C:JULIAN  ** 

**             Outputs:     None  ** 

**  Module    Processing   Narrative    Description:  ** 

**  ** 

**               Displays  a    menu   of    available   reports   and    prompts  ** 

**               Supervisor    tc   chose    one   or   return   to    SUPMENU1.  ** 

**               Weekly    and    Monthly    reports    are    directed   to    -he  ** 

**               printer.    Category!    and   Extended    value  reports  ** 

**               are   created    in  text    files   on   D:    drive   and    may   be  ** 

**                printed    by    • typing'    the    file    using    standard  ** 

**               operating   system   functions.    All    reports   should  ** 

**               te   run    only    during    'off    hours    due   to   their  ** 

**               large  amount   of   resource    utilization.  ** 

**  ** 

**  Superordinate    Modules:     SUFMENU1  ** 

**  Subordinate    Modules:    XXBWSTAT, XXMNSTAT,CATIRPT, EXTVAL** 

**  Author:    J.G.    BCYNION  ** 

**  ** 

*^**^*^^*************a****#a******************************* 


ERAS  E 

STORE    T    10    V:CONTINUE 

DO    WHILE    V:CONTINUE 

SET    TALK    OFF 

STORE     '     '    TC    V:CH0ICE 

TEXT 


WELCOME  TO  IHE  QDR  SPECIAL  REPORT  MENU 

1  -  Eiweekly  Statistics  Report 

2  -  Monthly  Statistics  Report 

3  -  Category  I  Report 

4  -  Extended  Value  Report 

5  -  Exit  to  Supervisor  Menu 

Enter  your  choice 

ENDTEXT 

2    19,35    GET    V:CH0ICE 

READ 

IF         V:CHOICE    >=    "1"    .AND.     V:CHOICE    <=    "5" 

IF    V:CH0ICE    =    "1"     .OR.    V:CH0ICE    =    "2" 
ERASE 

3       3,15    SAY    ■  **    YOUR    PRINTER    MUST    BE    TURNED    ON    AND'; 
♦'AVAILABLE    ♦*• 
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EN  di- 


al   12,20    SAY    •  PRESS    ANY    KEY    TO    START' 

WAIT 

3    22,  10    SAY    •  ' 


CO    CASE 

CASE    V: CHOICE=    "1" 

RELEASE    ALL    LIKE    V:* 

DO    CrXXEISTAT .PRG 
CASE    V: CHOICE=    "2" 

RELEASE    ALL    LIKE    V:* 

DO    C: XXMNSTAT .PEG 
CASE    V:CHOICE=    "3" 

RELEASE    ALL    LIKE    V:* 

USE    D:CEEN1    INDEX    D:OCASE1 

SET    TAIK    OFF 

STORE    0    TO    P: COUNT 

STORE     C    TO    P: TOTAL 

SET    FOfWAT    TO    SCREEN 

ERASE 

SET  ALTERNATE  TO  DrCATIRPT 

SET  ALTERNATE  ON 

?      'Cate:  ',CATE() 

7 

?  •  *****  QDR'  ; 

«■■     CATEGORY    I     REPORT  *****  • 

?  •  CASE    #  EXTENDED    PRICE' ; 

+»  OPEN    EATE  COG       ' 

9 

STORE    0    TO    P: PAGE 

STORE     5    TO    RO  W 

DO    WHILE       .NOT.     EOF 

STCBE    P:TOTAL+1    TO    P:TOTAL 
IF    CAT=' 1 ' 

?    '  'fCASE,'  ',EPRC,; 

•  « ,$ (DATES,  11,5)  , ; 

'  ' ,COG 

STORE     ROW+1    TO    ROW 
SKIP 

STORE    P:COUNT+1    TO    P:COUNT 
IF    ROW    >    6  0 
ERASE 
?    CHR(12) 
STORE    0    TO    ROW 
STORE    P:PAGE-H    TO    P:PAGE 

7 

?     •  PAGE       «,P:PAGS 

7 

?  '  CAS  E    #  EXT ' * 

♦■ENDED    PRICE  OPEN    DATE'; 

♦  •  COG       « 

STORE    ROW+4    TO    ROW 
ENDIF    <PAGE    IS    FULL> 
ELSE 

SKIP 
ENDIF    <NOT    CAT    I> 
ENDDO 

■7 

m 

7 
7 
7 

?  '  CAT     1    CASES:' ,P:COUNT 

?  •  TOTAL    CASES: ' ,P:TOTAL 

7 

7 

7  i  *****  END    OF    CAT' ; 
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CASE 


+  •  VQO 

?    CHR 

SET  A 
SET  A 
?  CHR 
?    CHR 


RY    I    REPORT 
(12) 

LIERNATE    OFF 
LIERNATE    TO 


***** i 


ffl 


s  r  as  : 

a     12, 2C    SAY 


a   13, 

a)    20 , 
WAIT 


20 

20 


SAY 

SAY 


•  Ycu    May 

♦  '       Fepor 
i 

t 


Receive    Your    Cat    I    * ; 
On    • 

D:CATIRPT.TXT       ' 
Press    Any    Key   To    Continue' 


V:  CHOI 
RSLEAS 
USE    D: 
REINDS 
GOTO    T 
SKIP 
SET   TA 
STORE 
STORE 
SET    FO 
ERASE 
SET    AL 
SET    AL 


EXT 


CE=    M4" 

E    ALL    LIKE    V;* 

CEEN1    INEEX    E:EXTVAL 

X 

CP 

IK    OFF 

0  TO  P: COUNT 
0  TO  P: TOTAL 
RMAT    TO     SCREEN 

TERNATE    TO    D:EXTVALUE 
TERNATE    ON 
'Date:     ',DATE() 

•  ***** 

ENDED    VALUE    REPORT  ***** 


NSN 

EXT 


PRICE 


7 
+  • 

+  « 

+  » 

+  • 

+  » 
7 

STORE    0    TO   P: 

STCRE    6    TO    RO 

DO    WHITE       .NO 

STORE 

?       * 

$  (NSN 

$  (NSN 

$(NOM 
i  t 

$  (DAT 
STORE 
STORE 
IF  RO 
E 
-> 

• 

S 

s 

1 

m 

•? 
7 

h 

+ 

♦ 

7 
+ 

♦ 

s 


QDR 


SCREENING' 
CASE    #         COG         SM 

CAT  NOMEN  UIC 

OFEN    DATE  CODE/DATE' 


PAGE 
W 

1.     EOF 
P:TOTAL+1    TO    P:TOTAL 
1     CASE     , '     '  ,COG, ' 


SMr 


'n'n\  ''."'  '?  (NSN,5,'2)  ,  (  -  *  ,' : 

,/,7),  .CAT,  ,  J 

EN,  1,10),'     >  -UIC,1     { ,EPRC. ; 

,$(DATES,1  1,5)  ,  '  »,SCR,V' 

is,21e5) 

ROW+1    TO    ROW 

P:COUNT+1    TO    PrCOUNT 
W    >    60 
RASE 

CHR  (12) 
TORE    0    TO    ROW 
TORE    P:PAGE+1    TO    P:PAGE 


PAGE       ',P:PAGE 


SCREENING' 
•     CASE  #    COG 
NSN  CAT 

UIC     EXT  PRICE 


SM 
NO 
O 


MEN' 
PEN' 


•DATE   CODE/DATE' 
TORE  ROW+4  TO  ROW 
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ELSE 

■7  I 


TOTAL    CASES 


•  .P: TOTAL 


ENDIF    <PAGE    IS    FULL> 
SKIP 
ENDDO 

-> 

* 

* 
* 

7 

?  '  *****  2ND    OF    '; 

♦'EXTENDED    VALUE    EEPORT  ****** 

?    CHR  (12) 
SET    ALTERNATE    OFF 
SET    ALTERNATE    TO 
?    CHR  (7) 
?    CHR  (7) 
ER  ASE 

a)    12,20   SAY    •     You    Hay    Receive   Your    Extended'; 
+  '      Value    Report   On    ' 

D: EXTVALUE.TXT       ' 
Press    Any   Key    To   Continue' 


3)     13r20    SAY    • 
a)    20,20    SAY    • 

WAIT 
CASE    V: CHOICE=    "5" 

ERASE 

RETURN 
ENDCASE 
ERASE 

STORE    T   TO    V:CONTINUE 
STORE     '    '     TO    V: CHOICE 


<   Please   Answer    With 
ENDIF    <V:CHCICE> 
ENDDO    <V:CONTINUE> 
*****    ENC    0F   PROGRAM 


1    -    5    ONLY    >' 
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XII.  2  DERI  MODULI 


*********************************************************** 


the  OPEN 


Date:  23  Nov  1983 
Version :  1.0 

Module  Name:  QUERY 

Module  Eurpcse:  Free  Format  Query  Against 

and  CLOSED  Data  Files 

Module  Interface  Definition 
Inputs:  C:WH0,  C:JULIAN 
Outputs:  None 

Module  Processing  Narrative  Description: 

Accepts  Selection  and  Display  Parameters  from 

the  user  and  generates  the  necessary  Data  Base  ** 

Commands  tc  extract  the  desired  information.    ** 

Temporary  files  are  created  as  -he  QUERY  is     ** 

being  processed.   These  files  are  deleted  upon  ** 

exiting.   The  user  may  either  print  or  display  ** 

the  information  extracted.  ** 

** 

Superordinate  Modules:  MENU1  ** 

Subordinate  Modules:  None  ** 

Author:  R.  G.  NICHOLS  ** 

** 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
*********************************************************** 

*****   Display  Menu  Selection  Options  and  Accept  Response 

*SET    COLCR    TO    112,     6 

STORE    '     ■    TC    Q: REPLY 

ERASE 

a   6,26    SAY    '*****   Query    Processing    ****** 

a    10,27    SAY    'THIS    PROGRAM    ALLOWS    YOU    TO" 

2  12,28    SAY 

3  15,32    SAY 
2    17,32    SAY 
a    20,40    SAY 
READ 
DO    WHILE    Q:REPLY    <>     M«     .AND.     Q:REPLY    <>    '2' 

a    23,20    SAY    'Enter    1    or    2   for    Your   Response' +chr  (7) 
a    20,40    SAY     ■     •     GEI    Q:REPLY 
READ 
ENDDO 


QUERY    THE    QDR     DATA    BASE' 

1  -   Continue' 

2  -    Return   to    Menu' 
'     GET    Q:REPLY 


*****      if   Response    is  to   Exit    Release   all   Memory    Variables 
*****      and    Return  to    MENU1 

IF    Q:REFLY    =    •  2' 

REIEASE    ALL    LIKE    C.:* 

RETURN 
ENDIF 

*****      Allow  User   to    Select    Files   to   Run   The   Query    Against 

STORE    '     •    TC   Q:REPLY 

ERASE 

a   6.24    SAY    '    ***      Query    Processing    Module    *** ' 

a    10,20    SAY    'Select    File (s)     tc   be   Used   for    this    Query' 

2    12,25    SAY    '1    -    OPEN    FILE' 
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a    14,25    SAY    '2    -    CLOSED    FILE' 

a    16,25    SAY    '3    -    Merged   OPEN   and    CLOSED    File' 

2    20,40    GET    Q: REPLY     PICTURE     '9' 

READ 

DO    WHILE    Q:EEPLY<>'1*    .AND.     Q:BEPLY<>'2' 
a    23,28    SAY    'Entrv   MUST    Be    1,    2,    or    3« 


a    23,26    SAY    'Entrv    MUST    Be    1.    2 
3    20,^0    GET    QtREPlY    PICTURE    f9' 


AND.Q:  REPLYO'3' 
+    CHE (7) 


READ 
ENDDO 

2   2  3,28    SAY    '  ' 

STORE     10    TO    Q:CNTR 

STORE    'Q:L«    +    STE(Q:  CNTR,2)     TO    Q:LINE 

DO    CASE 

*****      If   OPEN   File    Is   Selected   Indicate  O    File    Selection 

CASE    Q:REPLY    =    •  1  ' 

STORE    1    TO    Q:NFPASSES 
STCRE    «0«     TO    Q:FILE 

*****      if  CLOSE    File    Is   Selected    Indicate   C   File    Selection 

CASE    C:REPLY    =    •2' 

STCRE    1    TO    Q:NFPASSES 
STCRE    'C     TO    Q:FILE 

*****      If  open    File    Is   selected   Indicate   o    File   Selection 
*****      an(j   indicate    Two   Passes   Required    For   Execution   of 
*****      Generated  Code 

CASE    C:REPLY    =    •  3' 

STCRE    2    TO    Q: NEPASSES 
STCRE    'O'     TO    Q:FILE 
ENDCASE 

STORE  '  '  TO  Q:SELCMD1 
STORE  •  •  TC  Q:SELCME2 
STORE  '00'  10  Q:  SELECT 
STORE    0    TC    Q:ITEM 

*****      start  Loop  To    Accept    Selection   Criteria 

DO    WHILE    Q:ITEM    <=    4    .AND.     Q:SELECT    <>    '58' 

*****      Display    First    Screen    of   Menu 

IF    Q:SELECT    =    '00' 
*      -    SCREEN1    MENU    - 
ERASE 
a    2,20  SAY    'Enter    Selection   Criteria   For  This    Query' 


a   3 
a  a 

a  5 

a  5 

SET 

a  5 
a  5 

SET 


a 
a 
a 
a 
a 
a 
a 
a 


a  8 


20  SAY    '  (A    Maximum    of   5    Items    May   Be   Selected) 

0    SAY     • ---•; 

0  SAY    'Data   Elements' 
2  5   SAY    '  '  ' 

COLOR    TO*  1  12,2 

27  SAY    '    58      End    Element    Select' 

53  SAY    •    59      Abandon   Query' 

COLOR    TO     112,    6 

51    SAY    •  !  ■ 

25  SAY    '  !  • 

5  1    SAY    '  !  ' 

1  SAY    »01      Case   Number' 

25  SAY    • !       11      Origin   Code' 

51   SAY    '!       21      Interim    Repor' 

7  1   SAY    •  t    Date' 

1    SAY     '02       Cog' 

25   SAY    •!       12      Type    Document' 
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8,5 
0,1 


2  9,2  5 


5) 

0) 

a 

5) 

d) 

a) 

a) 

2 

a) 
a) 

a 

0) 
0) 

a) 
a 
a) 


10 
10 

10 
10 

11 
11 
11 

12 

12 

13 
13 

14 

14 
14 
15 

16 

16 
16 
17 

18 
18 
19 


1  SAY  • 

sa  y  '  o 


!   22  Origin  Prep  Date 


ro» 


1  s 
25 


AY 

SA 
SA 
SA 
AY 
SA 
SA 
1  SAY 
25    SAY 


51 
71 
1    S 
25 
51 


Y 

Y 

Y 
i 

Y 

Y 


1  SAY 
25    S  A 

1  SAY 
25  S  A 
51  SA 
1    SAY 

1    SAY 

25    SA 
46 
0   S 


T 
I 

r 

+ 
t 

Y 

Y 
i 

+  • 
i 

Y 
Y 


0    S 

42 

10 


a    21,27 


SA 
AY    ' 
+    ' 

AY    ' 

SAY 
SAY 
+  ' 
SAY 


3 
» 

i 

04 

3     I 
I    f 

•  i 

05 
t  I 

t    ! 

06 
i  i 

» 

07 
i  t 

« 

« 

08 
i  t 

•  t 

09 

10 
t  t 

•  D 


ziSN* 
13      Di 
23      Do 

Cate 

14 

24      R 
Number 

Nomen 


15 

25 
UIC 
16 
26 

Unit 

17 

27 

Unit 
18  C 
28  S 
Quant 
9  Reo 
Exten 
20  S 
ate  ! 


1 


sec 

cum 

ory 

ate 

epc 
i 

cla 
pen 

sea 

f  o 

ran 

cnt 

of 

H  R 

red 

Pri 

los 

ere 

ity 

§en 
ed 
ere 
30 


»  i 


very  Date 
ent  Number' 

Received ' 
f*t    Qc  nt  ™o  * 


ture' 

Date* 
t 

rigin  * 

smitral  Date 
ract  Number* 
Issue ' 

espouse   Date 
it    Code' 
ce  • 

e  Date' 
ening  Code ' 

Deficient 

Date 

Price' 
en   Report' 

Next    Page    of    Elements' 


i « 


S  I 


f  t 


29       SMIC 


Re 
'c 

'e 


E 

a 

ELSE 


EAD 
0    WH 

a 

a 


lations 

-  Rang 

-  Not 

-  Grea 
nter  Da 
: SELECT 


b  -  Exclude' 


a  -  Include 
e     d  -  Equal' 
Equal       f  -  Less  Than 
ter  Than1 

ta    Element    Number    '    GET    ; 
PICTURE    ' 99 • 


ILE    O'.SELECT    <    '00'     .OR.     Q:SELECT    >    '59' 

23.26  SAY    'Select    Erom    Above     (00    -    59)  •    ♦    CHR(7) 

21.27  SAY    'Enter    Data    Element    Number    '    GET    ; 
Q:SELECI    PICTURE    '  99' 

AD 


RE 
NCDO 
23,26    SAY    • 


*****      Display    Second   Screen   of    Menu 


IF 


30 


'Enter    Selection 
Query' 
'  (A    Maximum    of   5 


Q:  SELECT   = 
ERASE 

a    2,20    SAY 
+     • 

3r20    SAY 

4r0    SAY     ' 
+    i 

5,0    SAY    'lata 

5,25    SAY     '!' 
SET   COLCR    TC    112,2 

a    5,27    SAY    •    58      End    Element   Select' 
2    5,53    SAY    «    59      Abandon   Query' 
SET   COLCR    TC    1 12,     6 


Criteria    For    This' 
Items    May   Be 


Selected)  ' 

I 


Elements' 


a 
a 
a 
a 
a 

a 

a 

a 
a 


'  ! ' 

'  I ' 
t  t  i 

•31 


5,51     SAY 
6,25    SAY 
6,51    SAY 
7,1     S  AY 
7,25    SAY     •! 

8,1    SAY    ■ 
8,25    SAY 

+  ' 
9,1  SAY  '33 
9,25    SAY 


2/. 


I  f 


9Q    Region' 

40  Deficiency   Ver 

49  Action    Code' 
Type   Defect' 

41  Deficienc 

50  Cost  Code 
Vendor  Liab  Code' 

42  New-Repair/Ovhl 


y    Resp 


i  t 


t  i 


i  t 
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a)  10,1     SAY 

5)  10,25    SAY 

a)  10,51    SAY 

a)  11,1     SA  Y 

a)  11,25    SAY 


5)  12, 

a)  12, 

a  12, 

a  13, 

a)  13, 

a  14, 


a) 

a 

a 
a 


8 


SAY 
SAY 
SAY 

SAY 

+    « 

SAY 
SAY 
+    • 


a     14,58    SAY 
a    15,1     SAY 


15, 
16, 


16, 

V\ 

18, 
18, 

19, 


58    SAY 
1     SAY 
♦    ' 

51    SAY 
0    SAY 


0    SAY 
42    SAY 
10    SAY 
+    ' 

a    21,27   SAY 


i 

34 
i  j 
i  i 

• 

35 

hi 

ii 

36 
1 1 

1 1 

37 

46 
«L0 

38 

U7 

'De 

39 

48 

'Wa 

58 

59 
1 1 


51 

Ac 
43 
52 
Sc 
44 
53 
An 
45 
54 
Qu 
Wo 
t/S 

Qu 

Dl 
f  I 

Qu 

Re 
rra 
En 
Ab 
00 


St 

tic 
D 
C 

ree 
0 
A 

aly 
G 
P 

ant 

rk 

er/ 

ant 

SCO 

tem 
ant 
tur 
nty 

a  e 

and 
E 


atus  Code ' 

n  Point' 

ate  Mfg/Ovhl' 

ause  Code' 

n  Quantity ' 

pn  Time  at  Failure!"; 

ction  Dis'n" 

st  Code' 

art  Number ' 
ity  Inspected 
Unit  Code 
Batch • 

ity  Received 
very  Code 


i »  . 
!  '    $5' 


1 1  • 

!  *  56« 


Stock 


ity  in 

n  Code 
i 

lement  Select 

on    Query' 

rev   Page   of    Elements' 


7   I    - 

!       57' 
1 1  • 


i  . 
-J 


READ 

DO    WHILE 
3    23,2 
a    21  ,27 


r- 


READ 
ENDDO 

a    23,26    SAY 
ELSE 


Belati 
■c   -   R 

'e   -   N 
g   -  G 

'Enter 
Q:SEL 

SELECT 
SAY  'Se 
SAY  «En 
GE 


ens 
ang 
ct 
rea 
Da 
ECT 


b    -    Exclude' 


a   -    Include 
e  d    -    Equal' 

Equal  f    -    Less    Than 

ter  Than' 

ta    Element    Number    '    GET    ; 
PICTURE    '99' 


<    • 00'     .OR.    QcSELECT    >    • 59' 
lect    From    Above     (00   -    59)'+CHR(7) 
ter    Data    Element    Number    '    ; 
1    Q:SELECT    PICTURE    '99' 


xfi  jf*  jf*  >(fc  jjh 
*p  ^^  n^  ^^  np 

***** 


Begin  Case  To  Generate  Formats  For  Entering  Initial 
Values  -  Each  Selected  Item  Has  Its  Name  and  Picture 
Stored  in  an  Indirect  Variable 


DO  CASE 

*****      If   Termination   Requested    Release   Local   Memory    and 
*****      Return  to  Calling  Routine 

CASE    QcSELECT    =     '59' 

RELEASE    ALL    LIKE    Q:* 
RETURN 


***** 
***  *  * 
***** 
***** 
***** 


Generating   Selection   Code 


Begin  Generating   : 

Ii    a  Character  Field    Set   Character    Flag 
Lead   The    Picture   for    the    Data    Field 
Initialize  the  Data    Field   and   Then   Continue 
To   Generate    Code 


CASE    Q:SE1ECT    =     '01' 

STORE     'CASE'     TO    Q: SELITEM 
STORE     "'999999A'"    TO    QrSELPIC 
STORE     '  '     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 
STORE     »C:SELCMD1»    TO    Q:SELCHD 

CASE    Q:SEIECT   =     '02' 

STORE  'COG'  TO  Q:SELITEM 
STORE  '"9A"'  TO  QzSELPIC 
STORE    I    TO    Q:  CHAR 
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STCRE     •       •    TO    Q:INIT1 

STORE  'QtSELCMDI1  TO  Q:SELCMD 
CASE    Q:SELECT    =     «03' 

STORE     'MSN1    TO    Q:SELITEM 

STCRE     '"9999XXXXX99991"    TO    Q:SELPIC 

STORE    1    TO    Q: CHAR 

STCRE     '  '     TO    Q:INIT1 

STORE  ,C:SELCMD1»  TO  QrSELCMD 
CASE    Q:SELECT    =     '04* 

STORE     'CAT'    TO    Q:SELITEM 

STORE     "'9'  "    TO    Q:SELPIC 

STORE     «    •    TO    Q:INIT1 

STCRE    T   TO    Q: CHAR 

STORE  «C:SELCMD1»  TO  QrSELCMD 
CASE    Q:SELECT    ■     '05' 

STORE     'SOMEN1     TO    Q: SELITEM 

STORE     "'XXXXXXXXXXXXXXXXXXX' "    TO    Q:SELPIC 

STORE     ■  ■     TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  •CcSELCMDI*  TO  QrSELCMD 
CASE    QrSELECT    =     '06' 

STORE     •QIC1    TO    Q:SELITEM 

STORE     "'AXXXXX'"    TO    Q:SELPIC 

STORE     ■  '    TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  'QrSELCMDI'  TO  QrSELCMD 
CASE    QrSELECT    =     »07« 

STORE     'UI'    TO    QrSELITEM 

STCRE     "'AA'"    TO    Q:SELPIC 

STORE     •       '    TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  'QrSELCMDI'  TO  QrSELCMD 
CASE    QrSELECT    =     •08l 

STORE     •  OPRC1     TO    Q: SELITEM 

STCRE     ,,,999999.99' "    TO    Q:SELPIC 

STORE    S    TO    Q:  NR 

STORE    2   TO    Q:  EEC 

STORE    0    TO    Q:  INIT1 

STORE    F    TO    Q: CHAR 

STORE  »C:SELCMD1'  TO  QcSELCMD 
CASE    Q:SELECT    =     '09' 

STORE     'QTYDEF'    TO    Q:SELITEM 

STORE     •••  999999m    TO    QiSELPIC 

STORE    6    TO    Q: NR 

STORE    0    TO    Q:  EEC 

STORE     0    TO    Q: INIT1 

STORE    F    TO    Q: CHAR 

STORE  'QtSELCMDV  TO  QrSELCMD 
CASE    Q:SEIECT    =     '10' 

STORE     'EPRC1     TO    Q: SELITEM 

STORE     "*  99999  W93.<}9*  »    TO    Q:SELPIC 

STORE     12    TO    Q:NR 

STORE    2   TO    Q:  EEC 

STORE    0    TO    Q: INIT1 

STCRE    F   TO    Q: CHAR 

STORE  •C:SELCMD1«  TO  QrSELCMD 
CASE    Q:SELECT    =     '11* 

STORE     'CRG'    TO    Q:SELITEM 

STORE     "'XXX'"    TO    Q:SELPIC 

STORE     «         •    TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  «Q:SELCMD1»  TO  Q:SELCMD 
CASE    Q:SELECT    =     ' 12       « 

STORE     'DOC    TO    Q:SELITEM 

STORE     "«9»"    TO    Q:SELPIC 

STORE     '    '     TO    Q:IHIT1 

STORE    T    TO    Q: CHAR 

STORE  'Q:SELCMD1'  TO  Q:SELCMD 
CASE    Q:SELECT    =     '  13* 
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STORE     »$fDATES,1,5) ■    TO    Q:SELITEH 
STCHE     "«99999'"    TO    Q:SELPIC 
STORE     ■  '     TO    Q:INIT1 

STORE     1    TO    Q: CHAP 

STORE  «C:SELCHD1'  TO  Q:SELCMD 
CASE    Q: SELECT   =     « 14' 

STORE     »$(DATES,6,5) ■     TO    Q:SELITEM 

STORE     •'•99999'"    TO    Q: SELPIC 

STORE     ■  '     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  •C:SELCMD1I  TO  Q:SELCMD 
CASE    Q:SELECT    =     • 15' 

STORE     '$(DATES, 1 1,5) «     TO    Q:SELITEM 

STORE     "• 99999 •"    TO    Q: SELPIC 

STORE     '  '     TO    Q:INIT1 

STORE    1    TO    Q: CHAR 

STORE  ,C:SELCMD1»  TO  Q:SELCMD 
CASE    Q: SELECT    =     '16' 

STORE     'SEDATES, 16, 5) '     TO    Q:SELITEM 

STORE     "•  99999  • f'    TO    Q:  SELPIC 

STORE     '  ■     TO    Q:INIT1 

STORE    T   TO    Q: CHAB 

STORE  ,C:SELCMD1I  TO  Q:SELCMD 
CASE    Q:SELECT    =     '17' 

STORE     '${DATES,26,5)  '     TO    Q:SELITEM 

STORE     '■•99999' fl    TO    Q:  SELPIC 

STORE     ■  '     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  'C:SELCMD1'  TO  Q:SELCMD 
CASE    Q: SELECT   =     ' 18' 

STORE     «$iDATES,36,5) '     TO    Q:SELITEM 

STORE  "«99999'r'  TO  Q:  SELPIC 

STORE     '  ■     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  'C:SELCMD1»  TO  QtSELCMD 
CASE    Q:SELECT    =     • 19« 

STORE     ,ITDATES,41,5) ■     TO    Q:SELITEM 

STORE     "1^9999  if.    T0    Q:  SELPIC 

STORE     '  ■     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  •C:SELCMD1I  TO  Q:SELCMD 
CASE    Q: SELECT   =     '20' 

STORE     '$iDATES,21-5) «     TO    Q:SELITEM 

STORE    »«99999,f'    TO    Q:  SELPIC 

STORE     '  •     TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  «C:SELCMD1«  TO  Q:SELCMD 
CASE    Q:SELECT    =     '21' 

STORE     '$(DATES,31,5) '     TO    Q:SELITEM 

STORE     i"99999,r»    TO    Q:SELPIC 

STORE     '  ■     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  •C:SELCMD1*  TO  Q:SELCMD 
CASE    Q: SELECT   =     '22» 

STORE     'IjfDATES-Ue.S)  '     TO    Q:SELITEM 

STORE  M»99999'r'  TO  Q:  SELPIC 

STORE     '  '     TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  •C:SELCHD1«  TO  Q:SELCMD 
CASE    Q:SELECT    =     '23» 

STORE  'COCNO*  TO  QrSELITEM 

STORE     "'XXXXXX99999999* "    TO    Q:SELPIC 

STORE     '  •     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE  ,C:SELCMD1I  TO  Q:SELCMD 
CASE    Q: SELECT    =     '241 

STORE     'EEPCON'    TO    Q;SELITEM 

STORE     "'XXXXXX999999'  "    TO    Q:SELPIC 

STORE     ■  •     TO    Q:INIT1 
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STORE     1    TO    Q:  CHAP 
STORE     »C:SELCMD1»    TO    QrSELCMD 
CASS    Q: SELECT    =     '25' 

STORE     }?SCM'     TO    Q:SELITEM 
STORE     '"XXXXXX1"    TO    Q:'SELPIC 
STORE     '  »    TO    Q:INIT1 

C  m  pt5  T>       rr      ryiO      0*    CHAR 

STORE  *C:SELCHD1V  TO  QrSELCMD 
CASS    Q: SELECT    =     »26« 

STORE     •KUM1    TO    QrSELITEM 

STORE     '■•XXXXXXg^AXXXXXXXX' "    TO    Q:SELPIC 

STORE     •  ■     TO    Q:INIT1 

STORE    1    TO    Q: CHAR 

STORE  ■C:SELCHD1I  TO  QrSELCMD 
CASE    Q: SELECT    =     '27' 

STORE     *CR'    TO     QrSELITEM 

STORE     "»A,n    TO    Q:SELPLC 

STORE     ■    ■    TO    Q:INIT1 

STORE    T    TO    Q: CHAE 

STORE  'QrSELCMDl'  TO  Q:SELCMD 
CASE    Q: SELECT   ■     '28' 

STORE     •SCR1    TO    QrSELITEM 

STCRE     •"XXX"'    TO    Q:SELPIC 

STORE        '  '     10    Q-.INIT1 

STORE    T   TO    Q: CHAR 

STORE  'CrSELCMDl'  TO  Q:SELCMD 
CASE    QrSELECT    =     »29« 

STORE     'SM'    TO    QrSELITEM 

STORE     ,"AX,M    TO    Q:SELPIC 

STORE       «       ■    TO    Q:INIT1 

STCRE    T    TO    Q: CHAR 

STORE  'QrSELCMDl'  TO  QrSELCMD 
CASE    Q:SELECT    =     "311 

STORE     'C9Q«    TO    QrSELITEM 

STCRE     "'X'  "    TO    Q:SELPIC 

STORE       ■     •    TO    Q-.INIT1 

STORE    T    TO    Q: CHAR 

STORE  'QrSELCMDl'  TO  QrSELCMD 
CASE    Q:SELECT    =     '32' 

STORE     'DEF'    TO    QrSELITEM 

STORE     '"99'"    TO    QrSELPIC 

STORE        '       '    TO    Q:LNIT1 

STORE    T   TO    Q:  CHAR 

STORE  'QrSELCMDl'  TO  QrSELCMD 
CASE    Q:SELECT    =     '33' 

STORE     'VLC    TO    Q:SELITEM 

STORE     "'A'"    TO    Q:SELPIC 

STORE       ■     •    TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE  »Q:SELCHD1I  TO  QrSELCMD 
CASE    Q:SELECT    =     '34' 

STORE     'ACTPT'     TO    Q:SELITEM 

STORE    "'AXXXXX99999'"    TO    QrSELPIC 

STORE        ■  «    TO    Q:INIT1 

STORE    T   TO    Q: CHAE 

STORE  'QrSELCMDl'  TO  Q:SELCMD 
CASE    Q:SELECT    =     '351 

STORE     'SCRQTY'    TO    Q:SELITEM 

STORE     "»999999«»    T0    Q:SELPIC 

STORE    6    TO    Q: NR 

STORE    0    TO    Q: LEC 

STORE     0    TO    Q: INIT1 

STORE    F   TO    Q: CHAR 

STORE  'QrSELCMDl'  TO  Q:SELCMD 
CASE    Q:SELECT    =     '36* 

STORE     'WHO'    TO    QrSELITEM 

STORE     "'XXXX'  "    TO    QrSELPIC 

STORE        '  '     TO    QrlNITl 

STORE    T   TO    Qr  CHAR 
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STORE 

CASE  Q:S 
STORE 
STCSE 
STORE 
STORE 
STORE 
STCRE 
STORE 
STCRE 

CASE  Q: S 
STORE 
STORE 
STCRE 
STORE 
STORE 
STORE 
STCRE 
STORE 

CASE  Q:5 
STORE 
STORE 
STORE 
STCRE 
STORE 
STCRE 
STORE 
STCRE 

CASE  Q:S 
STORE 
STORE 
STCRE 
STORE 
STORE 

CASE  Q: S 
STCRE 
STORE 
STCRE 
STORE 
STCRE 

CASE  Q: S 
STORE 
STORE 
STCRE 
STORE 
STORE 

CASE  Q: S 
STCRE 
STORE 
STORE 
STORE 
STCRE 

CASE  Q: S 
STORE 
STORE 
STCRE 
STORE 
STORE 

CASE  Q: S 
STORE 
STORE 
STORE 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 
STORE 
STORE 


ii  t 

6 

0 

0 
F 
6 


w  • 

o  • 
V  • 

0: 
0: 
Q: 


•C:SELC 

ELECT    = 

'QTYINS 
hi  99999 

TO 

TO 

TO 

TO 

TO 

£:SELC 

ELECT    = 

'CTYREC 
-99999 

TO    Q: 

TO 

TO 

TO 

TO 

•Q:SELC 

ELECT    = 

•CTYSTK 
-99999 

TO    Q: 

TO 

TO 

TO 

TO 


TO    Q:SELCMD 


i EL IT EM 
:SEL?IC 


HD1 

»  37' 

1    TO   Q: 
9111    -jo 

NR 

EEC 
INIT1 

CHAfi 
NR 

MD2'     TO    Q:SELCMD 
'38* 


•    TO 
11 


Q 

TO 


EL ITEM 
:SELPIC 


Q: 
Q: 

Q: 

Q: 


9' 

NR 

DEC 

INIT1 

CHAR 

NR 

MD2'     TO    Q:SELCMD 
•  391 

'     TO 


Q: 
Q: 
Q: 

Q: 


ti  1 

6 

0 

0 

F 

6 

'C:SELC 

ELECT    = 

•CEFV 

II  1  ^  1  11    ip 

n    ii    Tq 

T   TO    Q: 
'C:SELC 
ELECT    = 

'EEFR' 

II I  ^  1  n    ff 

|l       II       TQ 

T    TO    Q: 

•C:SELC 

ELECT    = 

•ITEM1 
11 1  ^  1  11    ij 

11    11    To 

1   TO   Q: 
'C:SELC 

ELECT    = 

•CVER' 

"•99999 
11 

I  TO   Q: 

•C:SELC 

ELECT   = 

•CTF'    T 

"•A9999 
11 

T  TO  Q: 
•C:SELC 
ELECT    = 

•GOV«    T 

II  1  X  1  11    <p 

11    it    Tq 

I   TO   Q: 

•Q:SELC 

ELECT   = 

•WUC1    T 

•"XXXXX 
II 

T   TO    Q: 


Q: 


TO 


SEL 


9* 

NR 

EEC 

INIT1 

CHAR 

NR 

MD2' 

•40' 
TO    Q: 
0    Q:SELP 
Q:INIT1 
CHAR 
MD2«     TO 

•41' 
TO    Q:SEL 
0    Q:SELP 
Q:INIT1 
CHAR 
MD2'    TO 

•42« 
TO  Q:SEL 
0  Q:SELP 

Q:INIT1 
CHAR 
MD2«  TO 

•  a3« 

TO    Q:SEL 
,M    TO    Q: 

"    TO    Q:I 

CHAR 

MD2«     TO 
1441 

0  Q:SELI 
•"  TO  Q: 
"  TO  Q:I 
CHAR 
MD2«  TO 

•U5' 
0  Q:SELI 
0  Q:SELP 

Q:INIT1 
CHAR 
MD2'  TO 

'U6' 
0  Q:SELI 
XX'"  TO 

"  TO  Q 
CHAR 


EL IT EM 
:SELPIC 


TO  Q:SELCMD 


ITEM 
IC 


Q:SELCMD 

ITEM 
IC 


Q:SELCMD 

ITEM 
IC 


Q:SELCMD 

ITEM 

SELPIC 

NIT1 

Q:SELCMD 

TEM 

SELPIC 

NIT1 

Q:SELCMD 

TEM 
IC 


Q:SELCMD 

TEM 

Q:SELPIC 

:INIT1 
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STORE     •C:SELCMD2I    TO    Q:SELCMD 
CASE    Q:SELECT    =     '47' 

STORE     'DIS»    TO    Q:SELITEH 

STORE     "'AA'"    TO    Q:SEL?IC 

STORE       "       "    TO    Q:INIT1 

STORE    T    TO    Q:  CHAR 

STORE     ,C:SSLCMD2«    TO    Q:SELCMD 
CASE    Q:SELECT    =     '48' 

STORE     »RETC     TO    Q: SELITEM 

STORE     '"9"'    TO    Q:SELPIC 

STORE     M    "    TO    Q:IHIT1 

STORE    T   TO    Q: CHAR 

STORE     'Q:SELCMD2'    TO    Q:SSLCMD 
CASE    Q:SELECT    =     '49' 

STORE     'ACTTKN'     TO    Q:SELITEM 

STORE     "'AAA'1'    TO    QcSELPIC 

STORE       "         "     TO    Q:INIT1 

STORE    T    TO    Q: CHAR 

STORE     «C:SELCMD2»     TO    Q:SELCMD 
CASE    QrSELECT    =     '50' 

STORE     'COSTC     TO    Q:SELITEM 

STORE    "'A'  »    TO    Q:SELPIC 

STORE     "    "    TO     Q-.INIT1 

STORE    1    TO    Q:  CHAR 

STORE     ,C:SELCMD2«    TO    Q:SELCMD 
CASE    Q:SELECT    =     '51' 

STORE     'STATUSC     TO    Q:SELITEM 

STORE     "'AA'"    TO    Q:SELPIC 

STORE       "       "    TO    Q:INIT1 

STORE    T    TO    Q: CHAB 

STORE     «C:SELCMD2'    TO    Q:SELCMD 
CASE    Q:SELECT    =     '52' 

STORE     'CAUSEC    TO    Q:SELITEM 

STORE     '••A'"    TO    Q:SELPIC 

STORE     "    "    TO    0:INIT1 

STORE    T    TO    Q: CHAP 

STORE     'C:SELCMD2«    TO    Q:SSLCMD 
CASE    QrSELECT   =     '53' 

STORE     'ACIDISE'     TO    Q: SELITEM 

STCRE     "'A'  "   TC    QrSELPIC 

STORE     "    "    TO    QMHIT1 

STORE    T    TO    Q: CHAR 

STORE     'Q:SELCMD2'     TO    QtSELCMD 
CASE    QrSEIECT    =     '54' 

STORE     'MFG'    TO    Q:SELITEM 

STORE     "'XXXXXXXXXXXXXXXX'  "    TO    Q:SELPIC 

STORE       "  "    TO    Q:INIT1 

STORE    T   TO    Q: CHAR 

STORE     'C:SELCMD2«    TO    Q:SELCMD 
CASE    Q:SELECT   =     '55' 

STORE     'LOT'    TO    Q:SELITEM 

STCRE     "'XXXXXXXXX' "    TO    Q:SELPIC 

STORE       "  "    TO    Q:INIT1 

STORE    T    TO    Q: CHAB 

STORE     'C:SELCMD2'    TO    QrSELCMD 
CASE    Q:SELECT   =     '56' 

STORE     'DITEM'     TO    Q:SELITEM 

STORE     "'XXXXXXXXXXXXXXX XX XXX XXX XXX XXXXXXXXX'"; 
10    QtSELPIC 

STORE       "  "; 

10    Q:INIT1 

STORE    1    TO    Q: CHAB 

STORE     'C:SELCMD2«    TO    Q:SELCMD 
ENECASE 

*****      Display    Selection   Relations   and    Accept    Relationship 
*****      and    Initial    Search   Values 

IE    Q:SELECT<>'00'     .AND.     Q:SELECT<> ' 3 0 •     .AND.; 
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Q  :  £EL  ECTO  '58' 

STCRE    Q:ITEM    +     1    TO    Q:ITEM 

ERASE 

STCRE    '     '     TO    Q:SELECT 

a)    06,0  SAY    'Relations        a   -   Include  b  -    Exclude' 

2  06, U2   SAY    'c    -  Hange  d   -    Equal' 

+    '      g    -   Greater   Than' 
a)    10,10   SAY    'Enter   Relationship   for   Selection    »    GET 

Q:SELECT     PICTURE    fA' 
READ 

*****      validate    Entered   Value 

DO    WHILE     !(Q:SEIECT)      <    'A'     .OR.     !(Q:SELECT)     >     'G' 
w    ^.j,  jo   jai      £<n -3i    rtexa.1 — on snip    a  a    Uiapiay&u       , 

♦    'Above     (A   -    G)  '    +   CHR  (7) 
a)    10,10   SAY    'Enter    Relationship    for   Selection    ♦; 

GET    Q: SELECT    PICT    'A' 
READ 
ENEDC 

3  23, 18   SAY    '  • ; 

+    ■  ' 

*****      if   Range    Selected,    Accept    Two    Initial   Values 


IF    !(C:SELECT)     =    '  C 
STORE    Q:INIT1    TO 
9     14,10    SAY    'Enter    MINIMUM    Value    Allowed 


STORE    Q:INIT1    TO    Q:INIT2 
^Enter    HI HI Ml 

GET    Q:INIT1    PICT    5Q:SELPIC 


READ 

a    16,10    SAY    'Enter    MAXIMUM    Value    Allowed    »     ; 

GET   Q:INIT2    PICT    &Q:SELPIC 
READ 

*****      Ensure  That    Values  are   Properly   Ordered 

IF    Q:INIT1     >   Q:INIT2 

STORE    Q:IKIT1    TO    Q:TEMP 

STORE    Q:INIT2    TO    Q:INIT1 

STORE    Q:TEMP   TO    Q:INIT2 

RELEASE    C:TEMP 
ENDIF 

*****      if   Character    Field,    Place    Quotes    Around  Initial 
*****      value  (s) 

IF    Q:CHAR 

STORE    »"  "  +  !  (Q:INIT1)  +  "•  "    TO    Q:INIT1 
STORE    "'  "  +  !  (Q:INIT2)  +"»  "    TO    Q:INIT2 

ELSE 

*****      format   Numerics  to  be  Characters    For   Code    Generation 

STORE    ST5  (Q:INIT1,Q:NR,Q:DEC)     TO    Q:INIT1T 
STORE   Q:INIT1T    TO    Q:INIT1 

STORE    STR  (Q:INII2,Q:NR,Q:DEC)     TO    Q:INIT2T 
STORE    Q:INIT2T    TO    Q:INIT2 
RELEASE    Q:INIT1I,    Q:INIT2T 
ENDIF 

*****      Form   Partial    Command    Line 

IF    SQ'SELCME   =    '     ' 

STORE    Q: SELITEM+'>'+Q:INITl+«. AND. '+Q: SELITEM+; 

»<'+Q:INIT2    TO    6Q:SELCMD 
ELSE 

STORE    &Q:SELCMD  +  '  .AND.'  +  Q: SELITEM  +  ' >  '  +Q-.INIT1  ; 
♦ '.  ANE.'+Q:SELITEM  +  ' <'  +Q:INIT2    TO    SQ:SELCMD 
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ENEIF 

ELSE 

*****      Accept   Selection   Values    For   Query    (Single    Value) 

SAY    'Enter    Value    for   S; 
Q:  IN  111    PICT.  &Q:SELPIC 


2    12,10    SAY    'Enter    Value    for    Selection    «    GET; 


***** 


^r  nn  hP  ^p  *r 


^P  ^P  ^  ^  T 
^r  t*  t*  ^p  ^n 

***** 

***** 
***** 


READ 

If   Character,    Place    Quotes   Around    Initial    Value 

IF    QrCHAR 

STORE    "•  "♦!  (Q:INIT1)  +"•  "    TO    Q:INIT1 
ELSE 

Fcrmat   Numerics  to  be  characters    For   Code    Generation 

STORE    STE  (Q:INIT1,  Q:NR,Q:  DEC)     TO    Q:INIT1T 
STORE    Q:INIT1T    TO    Q:INIT1 
RELEASE    Q:INIT1T 
ENEIF 

Form   Partial   Command    Line 

Command    Line    Formation    Uses    Indirect    Addressing    to 

Point  to    the    Location   Of    the    Command   Line 

If   A   Previous    Line   Has    Eeen   Created,    Join    Together 
With   an    AND 


IF    SQrSELCMD    <>    '     ■ 

STORE    SC:SELCMC+' .AND. '     TO    &Q:SELCMD 
ENDIF 
DO    CASE 

CASE    !(Q:SEL2CT)     =    'A* 

STORE    SQ:SELCMD-0:SELITEM+' ='+Q:INITl    TO    &Q:SELCHD 
CASE    ! (QrSELECT)     =    rB' 

STORE    8Q:SELCMD-Q:SELITEM+' <>■ +Q : INIT1    TO    &Q:SELCMD 
CASE    ! (QrSELECT)     =    'D' 

STORE    SQ:SELCMD-Q:SELITEM+'='+Q:INITl    TO    SQrSELCMD 
CASE    ! (QcSELECT)     =    • E' 

STORE    SQ:SELCHD-Q:SELITEM+«<>»+Q:INITl    TC    SQ:SELCMD 
CASE    ! (Q:SELECT)     =    ' F' 

STORE    &Q:SELCMD-Q:SELITEH+,<,*Q:INIT1    TO    &Q:SELCMD 
CASE     '  (Q*CELECT)     =    'G' 

STORE*&Q:SELCMD-Q:SELITEM  +  ' >• +Q:INIT1    TO    &Q:SELCHD 
ENDCASE 
ENEIF 

STCRE    '00'     TO    Q:SELEC1 
ENDIF 

ENDIF 
ENEIF 
ENDDO 

*SET    COLCR    TO    112,     3 

RELEASE    Q:SELITEM,     QrSELPIC,    Q;CHAR,    Q:INIT1,    Q:INIT2,     Q:NR 
STORE    F    TC    Q:DATESEL 
STORE    'CASE    «    TO    Q:FLDCMD1 
STORE    'CASE    »    TO    Q:FLECMD2 
STORE    •     '    TO   Q: FIELD 
STORE    0    TC    £:ITEM 
STORE     '00*     10    Q: SELECT 
STORE    '     •    TC   Q:CHOSEN 


***** 

jj*  — r*-  ^p  ^p  ^p 


Display    Selection  Menu   to   Allow  Selection    of    Items 
To   Be  Displayed   -   Displays   First    Screen 


CO    WHILE    Q:ITEM    <=    9     .AND.     Q:SELECT    <>    '58' 
IF    Q:  SELECT    =    '00' 
ERASE 
a)    2,2  1  SAY    'Enter   Field    Selection    For   This    Query1 
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a  3 

2  4 

a  5 

3  5 
SET 
a)  5 
3  5 
SET 

a  5 

a  6 

a  6 
a  7 
a  "7 

3  7 

a  7 

a  8 

a  s 
a  8 
a  9 

3  9 

a  10 

a  10 

2  10 

a  10 
a  11 
a  11 
a  11 
a  12 
a  12 

a  13 
a  13 

a  m 

a  14 
a  14 
a  15 

a  16 
a  16 
a  16 
a  17 


9  SAY 

SAY 
+ 

SAY 
5   SAY 
CLOR 
7   SAY 
3   SAY 
CLOR 
1    SAY 
5   SAY 
1   SAY 

SAY 
5    SAY 
1    SAY 
1    SAY 

SAY 
5    SAY 
1    SAY 

SAY 
5   SAY 

1  SAY 
25  SA 
51  SA 
71  SA 
1  SAY 
25  SA 
51  SA 
1  SAY 
25    S  A 

1  SAY 
25    S  A 

1  SAY 
25  SA 
51  SA 
1    SAY 

+ 

1  SAY 
25  SA 
46  SA 
0  SAY 
♦     • 


ta 

i 

112, 
56 
59 
1  12, 


Eleme  nt 


End 
A  ban 
3 


•  ( A    Maxima m 

i _..  _  _ 

•Da 
«  » 

TO* 
» 

i 

TO 
t  i 

•  i 

i  t 

•oi 

•  ! 

■ 

f    ? 

'  t 

•02 
t  t 

i  t 

•03 


cf    10   Fields    May   Be    Selected)1 
. ± « . 


a  I 


Element    Select' 
don   Query' 


Case   Number1 

Origin   Code' 

Interim    Re  per' 


♦    » 

•0 

y  ' 

Y 
Y 

Y 
Y 


Y 
♦ 
•0 

Y  » 

+ 

•0 

Y  ' 

Y  ■ 
•0 


11 

21 
Date 
Cog 
12 
22 
NSN 
13 
23 


Ty 
Or 


pe  Document' 
lgin  Prep  Date' 


Di 
Do 

Cate 

14 

24  R 
Number 

Nomen 


15 

25 

0IC 

16 

26 

Unit 

17  I 

27  C 
Unit 

18  C 

28  S 
Quant 

Reop 
Exten 
20   S 


Date  ! 


SCO 

cum 
ory 
ate 
epo 

cla 

pen 

SCM 

f  O 

ran 

cnt 

of 

M  R 

red 

Pri 

los 

ere 

ity 

en 

ded 

ere 

30 


i  i 


very  Date 

ent  Number1 
i 

Received ' 

rt  Contro' 

ture1 

Date' 
i 

rigin ' 

smittal  Date 
ract  Number' 
Issue • 

esponse  Date 
it  Code' 
ce  • 

e  Date' 
ening  Code* 

Deficient   ! ' 
Date         ! 

Price' 
en  Report' 

Next  Page  of  Elements' 


r  i 


»  i 


29   SMIC 


*****      Display    Previously   Selected   Fields 

a  19,0  SAY  'Fields  Currently  Selected  '+  Q: 
a  21,27  SAY  'Enter  Field  Number  •  GET  Q:SEL 
READ 

*****      Validate    Field   Selection 


CHOSEN 
LECT  PICTURE  '99 


DO    WHILE    QrSELECT    <    '00'     .OR.    Q:SELECT    >    '59' 

a    23,26    SAY    'Select   From   Above     (00    -    59)»+CHR(7) 
a    21,27   SAY    'Enter    Field   Number    '    GET    ; 

Q:SELECT    PICTURE    '99' 
READ  — 
ENCDO 

3    23,26    SAY    •  • 

ELSE 

*****      Display    Second  Screen   For    Selection 

IF    QrSELECT    =  '30' 
ERASE 

a    2,21    SAY  'Enter    Field    Selection    For   This    Query' 

a    3,19    SAY  '(A    Maximum    cf    10    Fields    May    Be    Selected)' 
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a 


4,0 

+  » 

a  5,0 
a  5,2 

SET   C 

a   5,2 
a  5,5 

SET   C 

a   5,5 

6,2 
6,5 
7,1 
7,2 


SAY 


SAY     ' 
5     SAY 
OLCR    T 
7     SAY 
3     SAY 
OLCR    T 
1     SAY 
5     SAY 
1     SAY 

SAY     ■ 
5     SAY 


Ba  '-a 
»  >  * 


Elements' 


112,2 
58  E 
5  9  A 
112, 


nd    Element    Select1 

ban  don   Query' 

3 


1 1 


a  8,1 

a  8,2 

a  9,1 

a  9,2 


SAY 
5     SAY 

SAY 
5     SAY 


a 
a 
a 
a 


a 
a 
a 
a 

a 
a 

a 
a 

a 
a 

a 
a 

a 
a 


10, 

10 

10, 

11, 

11, 

12, 
12,' 
12, 
13, 

13, 
14, 

14, 
15, 

15, 
16, 

16, 
17, 

+ 

IV 

*1, 


1     SAY 
25    SAY 
51    SAY 
1     SAY 

25    SAY 


1 

25 
51 
1 


SAY 
SAY 
SAY 

SAY 

+    • 

8    SAY 
SAY 
♦     » 

8    SAY 
SAY 

+ 

8    SAY 
SAY 
+    « 

1    SAY 
SAY 


i  i  • 

31 
i  i 

i 

32 

i  t 

i 

33 

T  T 

t 

'34 
1 1 

i  i 

•35 

hi 

+    « 

•36 
1 1 

t  t 

•37 

46 


9Q 

40 

49 

Typ 

41 

50 

Ven 

42 

51 

AC 

43 

52 

Sc 

44 

53 

An 

45 

54 

Qu 

wo 

•Lot/S 

•38      Qu 

47      Di 

•Def   I 

•39      Qu 

•48      Re 

•Warra 

'58      En 

59      Ab 

'!       00 


Regio 

Defi 

Acti 

e   Def 

Defi 

Cost 

dor    L 

New- 

Stat 

tion 

Dat 

Cau 

reen 

Odh 

Act 

alyst 

GFM 

Par 

antit 

rk   On 

er/Ba 

antit 

sco  ve 

tern ' 

ant  it 

turn 

nty  • 

d   Ele 

and  on 

Pre 


n» 

cie 
er- 
ect 
cie 

Co 
iab 
Rep 
us 
Poi 
e  M 
se 
Qua 

Ti 

ion 

Co 
i 

t  N 

y  i 

it 

tch 
y  R 

ry 


I  f 


I  I 


ncy  ver     l ' 

Code' 
t 

ncy  Resp 
de* 

Code' 
air/Ovhl 
Cods  • 
nt' 

fg/Ovhl' 
Code' 
ntity • 
me  at  Failure!"; 

Dis'n" 
de' 


umber • 

nspected 

Coae 
i 

eceived 
Code 


y  in 
code 


Stock 


55 

I  . 

56 


57' 


ment  Select 

Query' 
v  Page  of  Elements' 


_i 


READ 


0    SAY    'Fields    Curr 

27   SAY    •Enter    Fiel 

Q: SELECT    P 


ently   Selected    •+    Q:CHOSEN 
d    Numbsr    •    GET    ; 
ICTORE    '99' 


*****      Validate    Field  Selection 


***** 


^r  ^r  ^p  ^p  ^n 


DO    WHILE    Q: SELECT    <    '00'     .OR.     Q:SELECT    >     '59' 

a   23,26    SflY    'Select    From    Above     (00   -    59)'+CHR(7) 
a   21,27    SAY    'Enter   Field   Number    •    GET    ; 

Q: SELECT    PICTORE    '99 ' 
READ 
ENDDO 

3    23,26    SAY    '  « 

ELSE 

Begin  Creating  Code  For  Fields  Selected 

DO  CASE 

If  59  Entered,  Release  All  Local  Memory  and  Return 

CASE    Q: SELECT    =     '59' 

RELEASE    ALL    LIKE    Q:* 
RETORN 
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*****      Store  selection   Name    tc   Q:SELLTEM 
*****      store  Field    Selection   Pointer   To    Q 


FLDCMD 


CASE    Q:S 
STORE 
STCBE 


STORE 
STORE 

CASE    Q:5 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE   Q:S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q: S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 

CASE    Q:S 
STORE 
STORE 


ELECT    =     '0 
•CASE'     TO 
'C:FLDCMD1 

•COG'  TO  Q 
•Q:FLDCHDt 

ELECT  =  »0 
•MSN'    TO    Q 

«C:FLDCMD1 
ELECT  =  '0 
•CAT1  TO  Q 
'Q:FLDCMD1 
ELECT  =  '0 
'NOMEN1  TO 
'C:FLDCMD1 
ELECT  =  '0 
•QIC1  TO  Q 
•Q:FLDCMD1 
ELECT  =  '0 
•01'  TO  Q: 
•C.:FLDCMD1 
ELECT  =  '0 
•OPEC1  TO 
'Q:FLDCMD1 
ELECT  =  •  0 
•QTYDEF'  T 
•C:FLDCMD1 
ELECT  =  ■  1 
•EPRC  TO 
'C:FLDCMD1 
ELECT  =  '  1 
'CPG'  TO  Q 
•C:FLDCMD1 
ELECT  =  *M 
•DOC  TO  Q 
'Q:FLDCMD1 
ELECT  =  •  1 
'3(DATES, 
'C:FLDCMD1 
ELECT  =  '  1 
•$(DATES, 
•C:FLDCMD1 
ELECT  =  M 
'$(DATES,  1 
•C:FLDCMD1 
ELECT  =  ' 1 
'S(DATES,1 
«C:FLDCMD1 
ELECT  =  •  1 
•$(DATES,2 
•C:FLDCMD1 
ELECT  =  ■  1 
•$(DATES,3 
»C:FLDCMD1 
ELECT  =  M 
•$(DATES,4 
«C:FLDCMD1 
ELECT  =  *2 
•3(DATES,2 
•£:FLDCMD1 
ELECT  =  »  2 
'$(DATES,3 
•C:FLDCMD1 

ELECT  =  »2 
'$(DATES,4 
«C:FLDCMD1 


V 

0:SELITEM 

•    TO    Q:  FLDCMD 


:SELITES 

•  TO    Q:FLDCMD 
3' 
:SELTTSM 

•  TO    Q: FLDCMD 
4' 
:SEL1TEM 

•  TO    Q: FLDCMD 
5' 
^Q:SELITEM 

•  TO    Q:  FLDCMD 
6« 
:SELLTEM 

•  TO    Q: FLDCMD 
7' 
SEL1TEM 

•  TO    Q:FLDCMD 
8' 

Q:SELITEM 
1    TO    Q: FLDCMD 
9« 
O    Q:SELITEM 

•  TO    Q: FLDCMD 
0' 
Q:SELITEM 

•  TO    Q:FLDCMD 
1' 
:SELLTEM 

•  TO    Q: FLDCMD 
2« 

:SELLTEM 
'  TO  Q:FLDCMD 
3' 

TO    Q:SEL1TEM 
Q:  FLDCMD 


1,5) 

'  TO 

4« 

6,5) 

•  TO 
5' 
1,5) 

•  TO 
6' 
6,5) 

•  TO 
7« 
6,5) 

'  TO 

8« 

6,5) 

•  TO 
9« 
1,5) 

•  TO 
0' 
1,5) 

•  TO 
1« 
1,5) 

'  TO 

2» 

6,5) 


TO    Q:SELLTEM 
Q:  FLDCMD 

TO    Q:SELITEM 
Q:FLDCMD 

TO    Q:SEL1TEM 
Q: FLDCMD 

TO    Q:SELLTEM 
Q:FLDCMD 

TO    Q:SELITEM 
Q: FLDCMD 

TO    Q:SELITEM 
Q:FLDCMD 

TO    Q;SELLTEM 
Q:FLDCMD 

TO    Q:SEL1TEM 
Q:  FLDCMD 

TO    Q:SEL1TEM 


TO    Q:FLDCMD 
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CASE    Q: SELECT    =     '23' 

STORE     'DOCNO*     TO    0: SELITEM 
STORE     'CiFLDCMDI' "TO    Q:FLDCMD 

CASE    Q: SELECT    =     «  24« 

STORE     'SEPCON'    TO    Q:SELITEM 
STORE     ,Q:FLDCMD1«    TO    Q:FLDCMD 

CASS    Q:SZLECT    =     '25' 

STORE     «FSCM'     TO    Q:SELIT2H 
STORE     •C:FLDCMD1I    TO    Q:FLDCMD 

CASE    Q: SELECT    =     '26' 

STORE     ■SOU1    TO    Q:SELITEM 
STORE     ,Q:FLDCMDT«     TO    Q:FLDCMD 

CASE   Q:SELECT   =     '27« 

STORE     'CR'    TO    0: SELITEM 
STORE     ■G:FLDCHD1'    TO    Q:FLDCHD 

CASE    Q: SELECT   =     '26* 

STORE     'SCR'    TO    Q:SELITEM 
STORE     ,Q:FLDCMD1I    TO    QrFLDCMD 

CASE    Q:SELECT    =     '29' 

STORE     'SM'    TO    Q: SELITEM 
STORE     lC:FLDCMD1l     TO    Q:FLDCMD 

CASE   Q: SELECT   =     '31» 

STCRE     'C9Q'    TO    Q:SELITEM 
STORE     'C:FLDCMD1'    TO    Q:FLDCMD 

CASE    Q:SELECT    =     •32' 

STORE     'DEF'    TO    Q:SELITEM 
STORE     •C:FLDCHD1»     TO    Q:FLDCMD 

CASE    Q: SELECT    =     '33' 

STCRE     ,VLCI    TO    Q:SELITEM 
STORE     ,Q:FLDCMDT«    TO    Q:FLDCMD 

CASE    Q:SELECT   =     «34» 

STORE     'ACTPT1     TO    Q: SELITEM 
STORE     'C.:FLDCMD1'    TO    Q:FLDCMD 

CASE    Q: SELECT    =     '35* 

STCRE     »SCRQTY'    TO    Q:SELITEM 
STORE     'C:FLDCMD1'    TO    Q:FLDCMD 

CASE    Q:SELECT    =     '36' 

STORE     'WHO'     TO    Q:SELITEM 
STORE     'QrFLDCMDI'     TO    Q:FLDCMD 

CASE    Q: SELECT    =     '371 

STORE     'CTYINS'    TO    Q:SELITEM 
STORE     •£:FLDCMD2«    TO    Q:FLDCMD 

CASE    Q:SELECT    =     «38» 

STORE     'CTYREC    TO    Q:SELITEM 
STCRE     'C:FLDCMD2'    TO    Q: FLDCHD 

CASE    Q.-SELECT   =     '39' 

STORE     »CTYSTK«    TO    Q:SELITEM 
STORE     'Q:FLDCMD2«     TO    Q:FLDCMD 

CASE    Q:SELECT    =     »40' 

STORE     •DEFV1     TO    Q: SELITEM 
STORE     'C:FLDCMD2'    TO    Q:FLDCMD 

CASE    Q: SELECT    =     '41' 

STCRE     'EEFR*     TO    Q: SELITEM 
STORE     «C:FLDCMD2'     TO    Q:FLDCMD 

CASE    Q'SELECT    =     '42' 

STORE     'ITEM'     TO    Q: SELITEM 
STCRE     »C:FLDCMD2'     TO    Q:FLDCMD 

CASE    Q: SELECT    =     »43' 

STCRE     'CVER*     TO    Q:SELLTEM 
STORE     'Q:FLDCMD2«     TO    Q:FLDCMD 

CASE    Q:SELECT    =     «44« 

STORE     'OIF'    TO    Q:SELITEM 
STCRE     ,C:FLDCMD2'     TO    Q:FLDCMD 

CASE    Q: SELECT    =     '45' 

STCRE     'GOV    TO    Q:SELITEM 
STORE     'C:FLDCMD2'     TO    Q:FLDCMD 

CASE    Q:SELECT    =     '46' 

STORE     'WUC    TO    Q:SELITEM 
STCRE     'C^FLDCMD^1     TO    Q:FLDCMD 
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CASE    QrSEIECT    =     '47' 

STORE     'CIS'     TO    QrSELITEM 
STORE     "C.rFLDCMD2J    TO    QrFLDCMD 
CASE    Q: SELECT    =     «48' 

STORE     'RETC     TO    QrSELITEM 
STORE     'C:FLDCMD2«    TO    QrFLDCMD 
CASE    Q'SEIECT    =     '491 

STORE     'ACTTKN'     TO    QrSELITEM 
STORE     ,C:FLDCMD2'     TO    Q:ELDCMD 
CASE   Q: SELECT   =     '50' 

STORE     'COSTC     TO    QrSELITEM 
STORE     'QrFLDCMD2«     TO    QrFLDCMD 
CASS    QrSELECT    =     '51' 

STORE     'STATUSC     TO    QrSELITEM 
STORE     »QrFLDCtfD2'    TO    QrFLDCMD 
CASS   Q: SELECT    =     '52' 

STORE     'CAUSEC    TC    QrSELITEM 
STORE     «QrFLDCMD2'     TO    QrFLDCMD 
CASE    QrSELECT    =     «53' 

STORE     'ACTDISF'     10    Q: SELITEM 
STORE     'C:FLDCMD2'    TO    QrFLDCMD 
CASE    Q: SELECT    =     '54' 

STORE     'KFG'    TO    QrSELITEM 
STORE     'QrFLDCMD2'     TO    QrFLDCMD 
CASE    Q:SELECT    =     '55' 

STORE     'LOT'    TO    QrSELITEM 
STORE     'C:FLDCMD2'    TO    Q:FLDCMD 
CASE    Q:SELECT    =     '56' 

STORE     'DITEM'     TC    Q:SELITEM 
STORE     'QrFLDCMD2'     TO    Q: FLDCMD 
CASE    QrSELECT    =     '57' 

STORE     'NNTY«     TO    Q: SELITEM 
STORE     'C:FLDCMD2'    TO    QrFLDCMD 
EN  ECAS  E 

IF    Q:SELECT    <>    '00'     .AND.     QrSELECT    <>    '30'     .AND.; 
QrSELECT    <>    '58' 
STORE    QrlTEM    +     1    TC    QrlTEM 
IF    QrlTEK   =    1 

STORE    QrSELECT    TO    QrCHOSEN 
STORE    QrSELITEM    TO    QrDISPLAY 
ELSE 

STORE     QrCHOSEN+'.     «+QrSELECT    TO    QrCHOSEN 
STORE    QrDISPLAY*' , '+Qr SELITEM    TO    QrDISPLAY 
ENDIF 
IF    QrSELECT    <>     '  01  • 

IF    $  (QrSELITEM,  1,1)  =  •$'     .AND.     .NOT.     QrDATESEL 
STORE    'DATES'    TO    QrSELITEM 

STORE    SQz FLDCMD-' ,' +Qr SELITEM    TO    &QrFLDCMD 
STCBE    '     '     TO    QrSELITEM 
STORE    T    TO    QrDATESEL 
E  LSE 

IF    $(QrSELITEM, 1, 1) <>' $' 

STORE    SQrFLDCMD-' , • +Q;SELITEM    TO    SQ: FLDCMD 
ENEIF 
ENDIF 
ENDIF 

*****      Generate    Code    For   Field   Selection 
IF   QrFIELD   =    '     • 

STORE    QrFIELD-QrSELITEM    TO    QrFIELD 
ELSE 

STORE    QrFIELD-' ,' -QrSELITEM    TO    QrFIELD 
ENDIF 

STORE    '00'    TO    QrSELECT 
ENEIF 
ENEIF 
ENEIF 
ENDDC 
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*****      Release    All    Unnecessary   Memory   Variables 

BELEASE    Q:SEPLT,    Q: SELECT,     Q:ITEM,    Q: SELITEM,    Q:SELCHDfj 
Q:PLDCMD,    Q: CHOSEN 

STORE    Q:HB£ASSES    TO    C:IOOFCNT 

*****      if    Ecth   OPEN    and   CLOSED    Files   ara    Selected 
*****      -jhe    Exacution    loop   Will    Be    Run   Twice 

EO    WHILE    Q:LOOPCNT    >=    1 

*****      select   File    Tc   Be    Used    In    This   Query 

IF   Q:FILE   =    «0' 

STORE  'D:'  +  C: WHO-'CPEN'  TO  Q: TEMP3 
ELSE 

STORE  • D:»+C: WHO-'CLOS'  TO  Q:TEHP3 
ENDIF 

*****      Generate    Executable   Cede   Tc   Perform   Query    Selection 
*****      check  to    See    If   The    Selection    Deals    With   The    First 
*****      Haif   0f    the    Data    Base 

IF    Q:SELCMD  1   <>     •     • 
IF    Q:  PILE  =    '  0' 

STORE    'USE    D:OFEN1'TO    SQrLINE 
STORE    Q:CNTR    +     1    TO    Q:CNTR 
STORE    «Q:L'    ♦    SIR (Q: C NTR ,2)     TO    QrLINE 
ELSE 

STORE    'USE    D:CLOSE1'TO    &Q:LINE 
STCRS    Q:CNTR    +     1    TO    Q:CNTR 
STORE    «Q:L'    +    STR(Q:CNTR,2)     TO    Q:LINE 
ENDIF 

STORE    •  D:'  +  C:  WHO+'TMPV     TO    Q:TEMP1 
SICRE    'COPY    TO    «+C:TEMP1     TO    5Q:LINE 
II    Q:?LECMD1     O    'CASE    • 

STORE    &Q:LINE+'    FIELD     ' +Q : FLDCMD1 + '     FOR    • +Q:SELCMD1; 
TO    SQ:LISE 
ELSE 

STORE    &Q:LINE+'    FOR    ■ +Q:SELCMD1    TO    SQ:LINE 
ENEIF 

STORE    Q:CNTR    ♦    1     IC    Q:CNTR 
STORE    «Q:L' +STR (Q:CNTR,2)     TO    Q:LINE 
ENDIF 

*****  Generate  Executable  Cede  To  Perform  Query  Selection 
*****  check  to  See  If  The  Selection  Deals  With  The  Second 
*****      Haif   0f    the    Data    Base 

IF    Q: SELCMD2   <>     ■     ' 
IF    QrEILE  =    '  C 

STCRE    'USE    D:OEEN2»    TO    SQ:LINE 

STCRE    Q:CNTR    +     1    TO    Q:CNTR 

STCRE    'Q:L'    +     STR(Q:CNTR,2)     TO    Q:LINE 
ELSE 

STCRE    'USE    D:CLOSE2'     TO    5Q:LINE 

STCRE    Q:CNTR    +     1    TO    Q:CNTR 

STCRE    'Q:L'    +    SIR(Q:CNTR,2)     TO    Q:LINE 
ENDIF 

STCRE    'D:'+C:  WHO+'TMP2'     TO    Q:TEMP2 
STCRE    'COPY    TO    '  +  C.:TEMP2    TO    &Q:LINE 
IF    Q*ELECMD2    <>    'CASE    * 

STCRE    &Q:LINE+'    FIELD     • + Q: FLDCMD2 + '     FOR    '+Q:SELCMD2; 
TO    5Q:LIliE 
ELSE 

STCRE    &Q:LINE+«    FOR    • +Q:SELCMD2    TO    &Q:LINE 
ENEIF 

STCRE    Q:CNTR    ♦    1     TC    Q:CNTR 
STCRE    «Q:L' +STR(Q:CNTR,2)     TO    Q:LINE 
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END  IF 


*****  Generate  Cods  to  Join  Together 
*****  selected  Files 


IF 


Q:SEL 
STCRE 
STCEE 
SICEE 
STCEE 
SICEE 
STCEE 
SICEE 
STCBE 
SICEE 
STCEE 
SICBE 
STCEE 
SICEE 


SICEE 
STCEE 
SICEE 
STCEE 
SICEE 
STCEE 
SICEE 
STCEE 
SICEE 
STCBE 
SICSE 
ELSE 

IF  Q: 


CMD 
■S 

Q: 

•Q 
•U 

Q: 
•Q 
•S 

Q: 

■Q 

«U 

Q: 

■Q 
«J 

Q 
Q: 
•Q 

•u 

Q: 

|Q 

•  D 
Q: 
•Q 
•D 

9: 


i  <> 

ELECT 
CNTE 
:L'  +  S 
SE  '  + 
CNTE 
:L'  +  S 
ELECT 
CNTR 
:L'  +  S 
SE  ■  + 
CNTE 

:L'  +  s 

CIN    T 
:FIEL 
CNTE 
:L'  +S 
SE '    T 
CNTE 
:L'  +  S 
ELETE 
CNTE 
:L'  +  S 
ELETE 
CNTE 
:L'  +  S 


'     '      .AND.     Q  :3£LCMD2    <> 
PSIBAEI1    TO    6Q:LINE 

+    1    IC   Q:CNIR 
TRJQ:CNTR,2)     TO    Q:LINE 
Q:TEMP1    TO    5Q:LINE 
+    1     IC    Q:CNTE 
TR(0:CNTR,2)     TO    Q:LINE 
SECCNDARY'     TO    &Q:LINE 
+    1    IC    Q:CNTR 
TR(Q:CNTB,2)     TO    Q:LINE 
Q:TEME2    TO    SQ:LINE 
+    1     IC    Q:CNTE 
TR{Q:CNTR,2)     10    Q 
0    *  +  £:TEMP3  +  '     FOR 
D   TO    SQ:LINF 
+    1     IC    Q:CNTE 
TR(Q:CNTR,2)     TO    Q 

o  6q:iine 

+    1     TC    Q:CNTR 

TR  <Q:CNTR,2)     TO    Q:LINE 

FILE    D: »+Q '.TEMPT-' .DBF' 
+    1     IC    Q:CNTE 
TR(Q:CNTR,2)     TO    Q:LINE 

FILE    D: '+Q:TEMP2-' .DBF' 
♦    1    TC   Q:CNTR 
TR  (Q:CNTRf  2)    TC    Q:LINE 


LINE 

P.CASE=S.CASE    FIELD 


LINE 


'  +: 


TO    &Q.-LINE 
TO    SQ:LINE 


SELCMD1     <>     ■     ■    .AND.     C.:SELCMD2    = 


***** 


Generat  e 
IF    Q:FLDC 
STORE 

STCRE 

STORE 

ELSE 

STCRE 

STCRE 

STORE 

STCRE 

STORE 

STORE 

STORE 

STORE 

STORE 

IF    Q:F 

STO 

STO 

STO 

ELSE 

STO 

STO 

STO 

ENDIF 

STORE 
i    p 

STORE 
STCRE 
STORE 
STCRE 
STORE 
STORE 
STORE 
STORE 


Code 
MD2  = 
'  RENA 
TO  SO 
Q:CNT 
•QtL1 

•  SELE 
Q:CNT 
'Q:L' 

•  USE 
Q:CNT 
«  C:L' 
'  SELE 
Q:CNT 
«  Q:L« 
ILE  = 
RE  ■  U 
RE  Q: 
RE    «Q 

RE  '  0 
RE  Q: 
RE    »Q 

•  JOIN 
OB  P. 
Q:CNT 
1  Q:L« 

•  USE' 
Q:CNT 
•Q:L' 
•DELE 

:CNT 
Q:L« 


s  to  Rename   Files   as    Necessary 

•CASE     ' 
KH    • +Q:TEMF1-«. DBF    TO     • +Q :TEM ?3-  ' . DEF ' ; 
:LINE 
E   ♦    1    T 
+  STR  (Q: 


0    Q:CNTR 

CNTfi,  2)     TO    Q:LINE 


9 


CI  SECO 
E  +  1  T 
+  STR(Q: 
•+Q:TEM 
R  ♦  1  T 
+  STR  (Q: 
CI  PRIM 
E  +  1  T 
+  STB  (Q: 

■0« 
SE    D:OP 
CKTR    + 
:I'+STR 

SE    D:CL 
CNTE   + 
:L'+STB 

TO  »+Q 
CASE=S. 
R  +  1  T 
+  STB(Q: 

TO  &Q: 
E  ♦  1  T 
+  STE  (Q: 
TE  FILE 
E  +  1  T 
+  STR  (Q: 


NDARY*     TO    &Q:LINE 
C    Q:CNTR 

CNTB,2)     TO    Q:LINE 
F1    TO    5Q:LINE 

0  Q:CNTB 

CNTB,2)  TO  Q:LINE 
AEY'  TO  &Q:LINE 

C  Q:CNTS 

CNTB,2)  TO  Q:LINE 

EN2'  TO  &Q:LINS 

1  TC    Q:CNTB 
(Q:CNTE,2)     TO    Q:LINE 

0SE2'     TO    &Q:LINE 
1    TO    Q:CNTE 
(Q:CNTE,2)     TO    Q:LINE 

•  TEMP3  +  * 

CASE    FIELD    '+Q:FIELD    TO    SQ:LINE 

0  Q:CNTB 

CNTE, 2)  TO  Q:LINE 

LINE 

C  Q.-CNTB 

CNTE, 2)  TO  Q:LINE 

D:  '+Q:TEMP1-« .  DBF'  TO  &Q:LINE 
0  QtCNTR 
CNTB,2)  TO  Q:LINE 
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ENDIF 

ELSE 

IF    Q:FLDCMD1     =     'CASE     ■ 

STORE    'RENAME    ' +Q:  TEM F2- « . D3 F    TO    ' +Q:TEMP3- • . DBF ' ; 

TO    SO: LIKE 
STORE    Q:CNTB    ♦     1    TO    Q:CNTR 
ST  GEE    '  C:L'+STR(Q:  CNTB,  2)     TO    Q:LINE 
ELSE 

STORE     'SELECT    SECONDARY'    TO    SQ:LINE 


LINE 


STORE    Q:CNTR    +    1    TO    Q:CNTH 

STCRE    TQ:  L'+STRJQ: CNTF, 2)     TO    Q: 

STORE    'USE     •+Q:TEMP2    TO    SQ:LINE 

STCRE    Q:CNTB    +    1    TC    Q:CNTR 

STORE     rQ:L' +STR (Q:  CNTR,2)     TO    Q:LINE 

STCRE    'SELECT    PRIMARY'    TO    &Q:LINE 

STORE    Q:CNTF    +    1    TO    Q:CNTR 

STCRE     '  Q:  L'+STR  (Q:  CNTF,  2)     TO    Q:LINE 

IF    Q:FILE    =    '0' 

STORE    'OSE    D:0PEN1'    TO    &Q:LINE 

STORE    Q:CNTR    +     1    TO    Q:CNTR 

STORE    '  Q:L'+STR  (Q:CNTR,2)     TO    Q:LINS 

EL  SE 

STORE    'USE    D:CL0SE1«     TO    8Q:LINE 

STORE    Q:CNTR    +     1    TO    Q:CNTR 

STORE    '  Q:I'+STR  (Q:CNTR,  2)     TO    Q:LINS 

ENDIF 

STCRE     'JOIN    TO    '  +  Q:TEMP3  +  '     FOR    P.  CAS  E=S.  C  AS  E    ' 
+• FIELD    '+Q:FIELD    TO    &Q:LINE 

STCRE    Q:CNTE    ♦    1    TO    Q:CNTR 

STORE     ' Q:L'  +STR (Q:  CNTR, 2)     TO    Q:LINE 

STCRE     'USE*     TO    &Q: LINE 

STORE    Q:CNTR    +    1    TO    0:CNTR 

STORE     '  Q:L'+STRjQ:  CNTF,  2)     TO    Q:LINE 

STCRE    'DELETE    FIXE    D :  • +Q: TEMP2- ' . DBF  '    TO    &Q:LINS 

STCRE     Q:CNTF    ♦    1    TC    Q:CNTR 

STORE     ' Q:L' +STR (Q: CNTR, 2)     TO    Q:LINE 
ENDIF 
ENEIF 
ENDIF 
STORE    Q:L00FCNT-1    TO    Q:LOOPCNT 

*****      If   Two   Passes    Fequired,    Switch   to    Closed   File 
*****      Fcr    Second  Pass 
IF    Q  :NRP£SSES    =     2 

STCRE    'C    TO    Q:FILE 
ENDIF 
ENDDO 

*****      Xf   Two   Passes    Required,    Generate    Code    To   Join    Files 
*****      Created    by   Individual   Passes 


IF    Q:NRPASSES    =     2 

STCRE    'USE    D:  ' +C  :  WtiC+'OPEN'    TO    &Q:LINE 

STCRE    Q:CNTR     +    1     TO    Q:CNTR 

STCRE    fQ:L'  +  STR  (Q:CNTR,2)    TC    Q:LINE 

STCRE    'APPEND    FROM    ' +  "D : » +C : WHO+ • CLOS '     TO    SQ:LINE 

STCRE    Q:CNTR    +    1     TC    Q:CNTR 

STCRE    «Q:L' +STR (Q:CNTR,2)     TO    Q:LINS 
ENDIF 

*SET    COLCR    TO    112,     6 
ERASE 

a    10,23    SAY    'Your   Query   Is    Now    Being    Processed' 
3    12,33    SAY    'Please    Standby' 

*****      Eegin  Execution  of  Generated  Code 

STORE    10    TO    Q:EXECNTF 

DO    WHILE    Q:EXECNTR    <=    Q:CNTR-1 

STCRE     »Q:L'+STR  (Q:EXECNT Br2)     TO    Q:EXELINE 
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85Q:EXELINE 

STCRE    Q:EXECNTR    +     1    TO    Q:EXECNTR 
tt  v  r\  n  p 

STORE  «"  "♦« E:'+C:WHC  +  'GPEN.  DBF'*"'"  TO  Q:OPENFILE 
STORE  "•  "+'C:'  +C:WHO+'CLOS.  DBF«+""'  TO  Q:CLOSFILE 
IF    FIIE  (SQ:CPENFILE)      .AND.     FILE (50: CLOS FILE) 

STORE    «D:'  +  C: WHO*  'OPEN'     TO    Q: USEFILE 

STORE    »D  :»+C: WHO*  'CLOS. DBF1     TO    Q:DELETEF 

DELETE    FILE    SC:DELETEF 
ELSE 

IF    FIIE  (SQ:OPENFILE) 

STORE    'D: ■ +C : WHC+'OPEN'     TO    Q: USEFILE 

ELSE 

STCRE    'D: ■ +C: WHC+'CLOS'     TO    Q: USEFILE 

ENDIF 
ENDIF 

*****      Display    Tha    Number   of    Records    Selected   and 

*****      Provide   the   Option  of   Hard   Copy  or    Screen    Reports 

USE    SQ:USEFILE 
GOTO    EOTTCM 
ERASE 

3    10     16    SAY    # 

2    10*22    SAY    'Records    Have   Been   Selected    For   This    Query' 
2    13,30    SAY    M.     Print   Hard    Copy' 
a    15,30    SAY    '2.    Display   To    Screen' 
2    17,30    SAY    '3.     Abort   Query1 
STORE    •     '    TC   Q: REPLY 
2    20, 40    GET    Q:REFLY 
READ 

CO    WHILE    Q:EEPLY    <     M«     .OR.     Q:REPLY    >    '3' 
a    23,33    SAY    'Enter    1,    2    or    3'+   CHR(7) 
a    20,40    GET    Q:REPLY 
READ 
ENDDC 
DO    CASE 

CASE    Q:REPLY    =    •  1  ' 
SET    PRINT    ON 
USE    SQ:USEEILE 
DO    WHILE     .NOT.     EOF 
ER  ASE 

STCRE    0    TO    C:LINENR 

DO    WHILE    .NCI.    EOF     .AND.    Q:LINENR    <=    59 
DISPLAY    ALL    FIELD    5Q:DISPLAY    OFF 
SKIP 

STORE    Q:IINENR     +    1    TO    Q:LINENR 
ENDDO 
?    CHR  ( 1  2) 
ENDDO 

SET    PRINT    OFF 
CASE    £:REPLY    =    '2' 
ERASE 

USE    SQ:USEFILE 

DISPLAY    ALL    FIELD    5Q: DISPLAY    OFF 
WAIT 
CASE    Q:REPLY    =    ■  3' 
USE 

DELETE   FILE    5Q  :  USEFIL E+ ' . DBF' 
RELEASE    ALL    LIKE    Q:* 
RETURN 
ENDCASE 
USE 

STORE    Q:USEFILE+ '. DBF'    TO    Q:USEFILE 
DELETE    FILE    5Q:USEFILE 
RELEASE    ALL    LIKE    Q:* 
RETURN 


*****    ENE    0F    PROGRAM 
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XIII.  STATISTICS  GENERATION  MODULE 


***  * 

** 

** 

** 

** 

** 

** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
**** 


***********************  ****************************** 

Date:    19  Jan    1 984 
Version :    1.0 

Module    Name:    STATGEN 
Module    Purpose:    Generat 

Process 

Frame   S 


e   Ccunt   of   Cases    in   Each 
ing .Phase   and  Create   Time 
tatistics 


Module    Interface   Definition 

Incuts:    None 

Outputs:  None 
Module  Processing  Narrative  Description: 


Calculates  the  Ti 
and  Updates  The  T 
Number  of  Cases  i 

Superordinate  Modules: 
Subordinate  Modules:  No 
Author:  R.  G.  NICHOLS 


me  Span  Between  Operations 
ECHCODE  File  to  Indicate  the 
n  Each  Processing  Status 

UTILMENU 

ne 


***********************  ****************************** 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 

** 

** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


*****      Display    Warning 


ERASE 


1 

3 

a 

5 
6 
7 
8 
9 
10 
1  1 
12 
13 
14 
15 
17 
18 
19 
STORE 

a  21 , 

READ 
DO  WH 

a 
a 

R  E 
ENDDO 

a  23, 
a  17, 


19 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 
t 

40 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

'  TC 

GET 


***** 

*  *  * 

* 

* 

* 

* 

* 

* 

* 


Statistics  Generation  Processing 
************* 


***** i 


WARNING 

This   Program    Will    Read 
All   Records    While 
Processing 

If    Existing    Files    Are 
Large,    This   Could    Take 
Ho  urs 


*    * 
To' 


* 

* 

* 
* 
* 

* 
* 
* 


*    ****    ****** 

Are    You   SURE    You    Want 
Continue  ■ 
<Enter    Y   or    N> •    +   CHR  (7) 


S: REPLY2 
S:REPLY2 


ILE    !  (S:REPLY2)     <>  'Y*     .AND.     !  (S:REPLY2) 

23,32    SAY    'Enter   Y  or    N   Only'    +    CHR(7) 

21,40    GET    S:REPLY2  PICTURE    '  A« 
AD 


32  SAY 
40  SAY 


<> 


N 


*****   verify  Password  Prior  to  Beginning  Computations 

IF    S:REPLY2    =    «Y' 

a    21,30    SAY    'Enter   Your    Password    * 
STCRE    '  '     TC    S:PASSWORD 

SET    CCNSCLE    OFF 
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ACCEPT    TC    S:PASSWC£D 

SET    CCNSCLE    ON 

I?    S:S4SSKOHD    <>'    '  ' 

USE    ErTECHCODE    INDZX    D:TECH 
FIND    *C:WHC 

If    FSWD    <>    3: PASSWORD     .OR.     #    =    0 
55    23,18    SAY    'Request    SBORTED    '  ; 

+    '-    Strike   Any   Key   To   Continue1 
WAIT 

RELEASE    ALL    LIKE    S :* 
RETURN 
ENEIF 
ENDIF 
ELSE 

RELEASE    ALL    LIKE     S:* 
RETUBN 
ENDIF 

*****      Eisplay    Processing  Message    to    User 

ERA  SE 

2  6,27  SAY  'Internal  Statistics  Update' 

a   8.35    SAY    'In    Process' 

a    16,26    SAY    ******    DC    NOT    INTERRUPT    ****** 

SELECT    PFIMARY 

USE    L:0PEN1    INDEX    D:0CASE1 

*****      Begin  Computing   Loop 

EO    WHILE    .NOT.     EOF 

DO    WHILE    $(DATES, 46,1)     <>    '     «     .AND.     .NOT.     EOF 
STORE    CASE    TO     S:CASE 
SICRE    WHO    TO    S:WHO 

STCRE    0    TO  S: ASSIGNED 

STCRE    0    TO  S:ACTIVE 

STCRE    0    TO  S:TRANSMIT 

STCRE    0    TO  S: RESPOND 

STCRE    0    TO  S: CLOSED 

STCRE  S(DATES,46,1)    TC    S:EATECHG 

STCRE  $(DATES,6,5)     TO    S:BECEIPT 

STCRE  $(DAIES, 11,5)    TC    S  :OPEN 

STCRE  $(DATES,  16,5)     TO    S:XMIT 

STCRE  $(DATES,26,5)    TC    S:BESPONSE 

STCRE  $(DATES, 26,5)     TO    S:CLOSE 

STCRE  0  TO    S: MAILDLAY 

STCRE  0  TO    S:XMITDLAY 

STCRE  0  TO    S:RESPDLAY 

STCRE  0  TO    S: CLCSDLAY 

STCRE  0  TO    S:PECCDLAY 

*****      calculate   Time   Span    Frcm   Receip-    to   Case   Open 

IF    S:RECEIPT    <>    •  •     .AND.     S:OPEN    <>    '  • 

IE    $(S:  RECEIPT,  1,2)     <    $  (S:  OPEN  ,  1 ,  2) 

IF    VAL($  (S:  OPEN  ,  1,2)  )  -VAL  ($  (S:  RECEIPT,  1  ,2)  )  =1 
STORE    VAL  ($  (S:OPEN,3,3)  )  +365-; 

VAL  ($  (S:RECEIPT,3,3)  )  +1    TO    S:MAILDLAY 


IF    VALj$(S:OPEN,1  ,  2)  )  -  VAL  ($  (S:  RECEIPT  ,  1  ,  2)  )  =2 
-~-£E    VAL  ($(S:OPEN,3.3) )  +730; 

-VAL  ($  (S:  RECEIPT, 3,3)  ) +1    TO    S:  MAILDLAY 


ELSE 

STCEE    999     TO    S:MAILDLAY 
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***** 


***  ** 

nn  ^^  n^   n^    hp 


*P  ^H  n^   *^   ^p 

***** 


ENDIF 
ENDIF 

ELSE 

STORE    VfiI(3(S: 
+  1   TO    S : 
ENDIF 
ENEIF 
Calculate   Time   Span 

IF   S:XMIT    <>    '  ' 

IF    $(S:  OPEN  , 1,2)    < 

IF    VAL  ($  (S:XMIT 

STORE    VAL($( 

VAI  ($  (S: 

ELSE 

IF    VAI  ($  (S:X 

STORE    VAL 
VAL(3 
E ISE 

STORE    999 
ENDIF 
ENDIF 
ELSE 

STORE    VAL($(S:X 
TO    S  :XMITDL 
ENDIF 
ENDIF 

Calculate  Time  Span 
Manager   Response 

IF    S:RES?ONSE    <>    ' 
IF    $(S:  XMIT,1,2)    < 

IF    VAL  ($  <S:RESP 
STORE    VAL($( 
Vfll  ($  (S: 
ELS  E 

IF    VAI  ($  (S:R 

VAL($( 

STCRE    VAL 

VAL 

ELSE 

STCRE    999 
ENDIF 
ENDIF 
ELSE 

STORE    VAI  <$  (S:R 
+     1    TO    S 
ENDIF 
ENEIF 

Calculate    Time   Spai 
Case   Close 

IF    S: CLOSE   <>     »  • 

IF    ${S: RESPCNSE.1  , 

IF    VAL  ($  (S:CLOS 

STORE    VAL(S( 

-    *  (s : 


CFEN,3,3))  -VAL  ($(S: RECEIPT,  3,3))  ; 
MAILDLAY 


From    Case   Open   tc    Let-er    Iransirit 


$(S:XMIT, 1,2) 
,1,2))  -VA£($(S:gPEN,1, 
S:XMITr3,3) ) +365-; 
OFEN, 3,3) )  +1    TO    S:XMIT 

MIT,  1,2)  )-VAL  ($  (SlOPEN 
IS  (S: XMIT,3,3) ) +730-; 
(S:OPEN, 3, 3) ) +1    TO    S:X 

TO    S:XMITDLAY 


2))  =1 

DLAY 

f  1,2))  =2 

MITDLAY 


MIT,  3  ,3)  )-VAL  ($  (S:OPEN  ,3,3)  )  +  1     ; 
AY 


Frcm   Lettar   Transmit  to   Itei 


$(S:RESPONSE,1 ,2) 
CNSE, 1,2) )  -VAL($  (S:XMI 

S:  RESPONSE,  3,  3) ) +3  65-; 
XMIT,3,3) ) +1     TO    S:RES? 


ESFCNSE,  1.2 
S:XMIT,1 ,2) 


'=-2 


($(S:RESPONSE,3,3) ) +73 
($  (S:  XMIT,3,3)  )  +1    TO    S 

TO    S:RESPDLAY 


T,1,2)  )=1 
DLAY 


0    -     ; 

:RESPDLAY 


ESPCNSE, 3,3) )  -VAL ($(S:  XMIT, 3,3))  ; 

:RESPDLAY 


From    Item    Manager    Response    to 


2)     <    $  (S:CLOSE,  1,2) 
E,1 ,2) )- VAL($  (S:RESPON 
S:CIOSE,3.  3))  +365    -    ; 
RESPONSE, 3, 3    )  +  1 


SE,1,2))=1 
i       £: CLOSDLAY 


VAI($ 
ELSE 

IF    VAI($(S:CLOSE,  1,2)  )     - 
VAL($(S 
STCRE    7U^,d.vi.s/^(J(Jf>rfJU 

VAL($(S:RESPONSE,  3,3)     +1     TO    S'.CLCSDLAY 
ELSE 

STCRE    999 
ENDIF 
ENDIF 
ELSE 


:RESPONSE,  1.2))     =    2 
(?i?lcLOSE,3c3)  )  +730    - 


TO    S:CLOSDLAY 
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STORE   VAI  ($  (S:CIOSE,  3,3)  )     -; 

VAL  ($  (S:RESPONSE,3,3)  ) +1    TO    SrCLOSDLAY 
ENDIF 

*****      calculate   Time   Span    From   Case    Open    to   Cass    Close 

IF    $(S:0PEN,1,2)     <    $ (S:CLOSEf 1 ,2) 

IF    VAL  ($  (SlCLOSE,  1,2)  )  -VAL($  (S:OPSN,  1,  2)  )     =    1 
STORE    VAL($  (S:CLOSE.3,3)  )     +    365    -     ; 

VAL(:S  (S:  OPEN,  3,3)  )  +1    TO    S:PROCDLAY 
ELS  E 

IF    VAI  ($  (S:  CLOSE,  1 ,  2)  )  -V  AL  {$  (S  :OP  EN  ,  1  ,  2)  )  =2 
STCRE    VAL  ($(S:CLOSE£3,3)  )     +    730    -    ; 

VAL($  (S:OPEN, 3,3) )     +    1    TO    SrPRCCDLAY 
ELSE 

STCBE    999    TO    S:PROCDLAY 
ENDIF 
ENDIF 
ELSE 

STORE    VAI  ($  (S:CIOSE,3,3)  )     -    VAL  ($  (S  :  OPEN  ,  3  ,  3)  )  ; 
♦    1     TC    S:PROCDLAY 
ENDIF 
ENEIF 

SEIECT    SECCNDABY 
USE    D:QTIME    INEEX    DlQCASE 

*****      Update  Time    Frame  File    With   New   Time   Spans 
*****      if   a   Record    Does   Not    Exist    For    a   Case,    Create   It 

FIND    SS:CASE 
IF    #    =  0 

APPEND     BLANK 

REPLACE    CASE    WITH    S:CASE,WHO    WITH    S: WHO 

IF    S: DATECHG    <>    'N ' 

STORE    '9999'    TO    S:WHO 

ENDIF 
ENEIF 
IF    S:EATECHG    =    'N' 

STCRE     1    TO    SzASSIGNEE 

STORE     1    TO     StACTIVE 
ENEIF 

*****      chance  Status    From  Active    to   Transmitted   or 
*****      Vice  "Versa 

IF    S:XMITDLAY    >    0    .AND.     XMITDLAY    =    0 
STORE    S:ACTIVE    -    1     TO    S:ACTIVE 
STCRE    S:TRAKSMIT    ♦     1    TO    S: TRANSMIT 
ELSE 

IF    SlXMITDLAY    =    0     .AND.     XMITDLAY    <>    0 
STORE    S: ACTIVE    +    1    TO    S:ACTIVE 
STORE    S:TBANSMIT    -    1     TO    S:TRANSMIT 
ENDIF 
ENEIF 

*****      change  Status   From  Transmitted   to    Responded   or 
*****      vice   Versa 

IF    S:RESPDLAY     >    0    .AND.     RESPDLAY    =    0 
STORE    S:TRANSMIT    -     1    10    S:TRANSMIT 
STCRE    S:RESECND    +     1    TO    S:RESPOND 
ELSE 

IF    S:RESPDLAY    =    0     .AND.     RESPDLAY    <>    0 
STORE    S:IRANSMIT    +    1     TO    S:TRANSMIT 
STORE    S:RESPOND    -     1    TO    SzRESPOND 
ENDIF 
ENEIF 

*****      Change  Status   From  Responded    to  Closed   or 
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*****      vice    Versa 

IF    S:CLOSDLAY    >    C    .AND.    ClOSDLAY    =    0 
SICES    S:ESSECND    -     1    TC    S:HESPOND 

STORE    S:CLOSED    ♦    1     TO    5: CLOSED 
ELSE 

IF    S:  CLOSDLAY    =   0     .  AN£.     CLOSDLAY    <>    0 

STORE    S: RESPOND    -    1    TO    S: RESPOND 
STORE    S:C10SED    ♦    1    TO    SrCLOSED 
ENDIF 
ENCIF 

*****      update  Time    Span   File 

REPLACE  CASE  WITH  SrCASE.WHO  WITH  S : WHO ,M AILDLAY  ; 
WITH  Sr MAILDLAY.XMITDLAY  WITH  S : XMITDLA Y, R SSPDLA Y  WITH  ; 
SrRESFDLAY, CLOSDLAY    WITH    S : CLOSDLAY , PROCDLAY    WITH    SrPROCDLAY 

SEIECI   SECCNDA5Y 

USE    D:TECHCODE    INDEX    D:TECH 

*****      update   Techcode    File 

FIND    5S:WHO 
IF    #    <>   0 

REPLACE    ASSIGNED    WITH    ASSIGNED    +    S:ASSIGNED,; 
ACTIVE    WITH    ACTIVE    ♦    Sr A CTIVE, TRANSMIT    WITH   TRANSMIT    ; 
+    S:TRANSMITrRESPOND    WITH    RESPOND  +  S : RES  PON D,CLOS ED    WITH    ; 
CLOSED    +    SrCLOSED 
ENDIF 
ENEIF 

SELECT   PRIMARY 

REELACE    DATES    WITH    $ ( DAT ES , 1 ,  45)  +  •     ■ 
SKIP 
ENEDO 
SKIP 
ENDDO 

*****      Release    All   Lccal  Memory   Variables   and   All    Files 
*****      used   During    Processing 

SELECT    PRIMARY 

USE 

SELECT    SECONDARY 

USE 

RELEASE  ALL  LIKE  Sr* 

RETURN 

*****       E1JD    CF    PROGRAM 
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XIV.  JULIAN  DATE  CONVERSION  MODULE 


****************************************************** 
** 

Date:    18  October    1984 

Version :    1.0 

Module    Name:    OJULIAN 

Module    Eurpose:    Convert    Date    (MMDDYY)    to   Julian 

Module    Interface   Definition 
Inputs:    V:MM.V:DD,V: YY 
Outputs:     V:JULDATE 

Module    Processing   Narrative    Description: 


** 
** 

** 
** 

** 
** 

** 
** 
** 
** 
** 
** 
** 
** 

** 
** 
** 
***************************  *************************** 


Receives   a    date   in    MMDDYY   format    and   converts 
it   to    a  Julian   date   and    returns   the   date   to 
the  calling    program. 

Superordinate    Modules:    XOPEN2 
Subordinate    Modules:    None 
Author:    J.G.    BOYNTON 


._■.,,,.-...,.. 

** 
** 
** 
** 

** 

** 
** 
** 
** 

** 
** 
** 
** 
** 
** 

** 
** 

** 

*  **  ** 


V:DAY 
3 1  TO  V: DAY 
5S  TO  V: DAY 
90  TO  V: DAY 
120  TO  V:DAY 


DO  CASE 

CASE  V:MM  =  0  1 

STCEE  V:DD  TO 
CASE  V:MM  =  0  2 

STORE  V:DD  + 
CASE  V:MM  =  03 

STORE  V:  DD  + 
CASE  V:MM  =  04 

STCRE  V:DD  «• 
CASE  V:MK  =  05 

STCRE  V:DD  ♦ 
CASE  V:MM  =  06 

STCRE  V:DD  + 
CASE  V:MM  =  07 

STCRE  V:DD  + 
CASE  V:MM  =  08 

STCRE  V:DD  ♦ 
CASE  V:MM  =  09 

STORE  V:DD  + 
CASE  V:MM  =  10 

STCRE  V:DD  ♦ 
CASE  V:MM  =  11 

STCRE  V:DD  + 
CASE  V:MM  =  12 
STCRE  V:DD  + 
ENDCASE 

IF  INT(V:YY/4)  *4  =  V :  YY  .AND. 
IF  V:MM=  02  .AND.  V:DD=  29 

STORE    V:DAY    TO     V:DAY 
ELSE 

STORE    V:DAY    +     1 
ENDIF 
INDIF 

STORE    V:YY    *    1000    +    V:DAY   TO    V:JULIAN 
STORE    STR  (V:JULIAN,5)    TO    V: JULDATE 
RETURN 


151  TO 

1  81  TO 

2  12  TO 
243  TO 
2  73  TO 
3C4  TO 
334  TO 


V 

V 
V 
V 
V 
V 
V 


DAY 
DAY 
DAY 
DAY 
DAY 
DAY 
DAY 
V: 


DAY    >=    60 


10    V:DAY 


*****    ZNE    OF   PROGRAM 
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XV.    COG    COUNT    MODULE 


****************************************************** 
** 

Date:    8   Jan    1984 

Version:    1.0 

Module    Name:    COGCNT 

Mcdule    Purpose:    Ccunt   the    Active    Cases    Assigned    to 


Ar.y  Given  COG 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
****************************************************** 

*****   Display  Warning  Message  and  Accept  Con  tine  Requ 


Module  Interface  Definition 
Inputs:  None 
Outputs:  None 

Module  Processing  Narrative  Description: 

Indexes  the  OPEN1  File  by  COG  and  Counts 
The  Number  cf  Cases  Assigned  To  Each  COG 

Superordinate  Modules:  UTILMENU 
Subordinate  Modules:  None 
Author:  R.  G.  NICHOLS 


***** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 

***  ** 


ERASE 


1 
3 
4 

5 

•* 

o 
7 
8 
9 

a  10 

a  11 

5)  12 
a  13 

a  14 
a  15 
a  17 
a  18 
a  19 

STORE 


24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 
24  SAY 


*****  qqG   count  Processing  ***** 
*  ******  ********* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


WARNING 

This   Program    Will   Read 
All   Records    While 
Processing 

If    Existing    Files    Are 
Large,    This   Could   Take 
Ho  urs 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


*    ****    ******** 

Are    You   SURE    You   Want   To* 
Continue ' 
<Enter    Y   or    N> •    +   CHR  (7) 
•     '    TO   CC:REPLY2 
a    21  ,40    GEI    CC:REPLY2 
READ 

DO    WHILE    !(CC:REPLY2)    <>    'Y'     .AND.     !(CC:REPLY2)     <>    'N« 
a    23,22    SAY    'Enter   Y   or    N   Only'    +    CHR  (7) 
a    21,40    GET    CC:REPIY2    PICTURE    'A' 
READ 
ENDDO 

a    23  ,32    SAY    ■  • 

a    17,40    SAY    •     ■ 

*****   Prompt  For  and  Accept  Password  Verification 

IF    CC:REPLY2   =     '  Y' 

a    21,20    SAY    'Enter   Your    Password    • 
STORE    '  »     TC    CC:PSWD 

SET    CCNSCLE    OFF 
ACCEPT    TC   CC:PSWD 
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SET    CCNSCLE    ON 

I F    CC  *  FS  WD    <>    '  * 

USE    D:TECHCODE    INDEX    D:TECH 

FIND    SC:  WHO 

I?    PS  WD    <>    CC:ESWD    .OP..     #    =    0 

3    23,18   SAY    •Request    ABORTED   -    Strike   Any    Key    To  Continu 
WAIT 

RELEASE    ALL    LIKE   CC:* 
REIURN 
ENCIF 
ENCIF 
ELSE 

RELEASE    ALL    LIKE    CC:* 
RETURN 
END  IF 

*****      Begin  Statistics   Update 

ERASE 

§    12,20  SAY  •  CCG    STATISTICS    BEING    PROCESSED' 

9    14,20  SAY  ■  PLEASE    STANDBY  • 

a    20,20  SAY  ******    DC    NOT    INTERRUPT    WHILE    PROCESSING    ****** 

SELECT    PRIMARY 

USE    E:0PEN1    INDEX    D:CCGCNT 

REINDEX 

SELECT    SECONDARY 

USE    C:COG    INDEX     D:COGS 

REPLACE    COUNT    WITH     0    FOR    COUNT    <>    0 

SELECT    PRIMARY 

GOTO     2 

*****   Ccunt  the  COGs  Assigned  Until  End  Of  File  Found 

CO    WHILE    .NOT.     EOF 

STORE    CCG   TO    CC:CUFRENT 
STORE    0    TO    CC:COUNI 

*****      Increment  Counter   Until   a    Different   COG  or    End   Of 
*****      File   Found 

DC    WHILE    COG    =    CC:CURRENT    .AND.     .NOT.     EOF 

STORE    CC:CCUNT    +    1    TO    CC:COUNT 

SKIP 
ENDDO 
SELECT    SECONDARY 

*****      update   IM   Record 

FIND    8CC:CURRENT 

IF    #    <>    0 

REPLACE    COUNT     KITH    CC:COUNT 

ENCIF 

SELECT    PRIMARY 
ENDDO 
USE 

SELECT    SECONDARY 
USE 

RELEASE    ALL    LIKE    CC:* 
RETURN 

*****    ENE    CF    PROGRAM 
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XVI-     BI-WEEKLY    STATISTICS    E2P0RT    MODULE 


***************************  ******************************** 


** 
** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


DATE:    27   JANUARY    1984 

VERSION:    1.0 

MODULE    NAME:     XXBISTAT 

MCDUIE    PURPOSE:     CALCULATE    EI-WEEKLY    STATISTICS 

MODULE    INTERFACE    DEFINITION 

INPUTS:     C:WHO,    C;JULIAN 

OUTPUTS: 
MODULE    PROCESSING    NARRATIVE    DESCRIPTION: 


AC 
FO 
CA 
CI 

ME 
SE 
OP 
TH 
OF 
TH 
BI 
RE 
TH 
IN 
SP 
DA 
SUPEEOR 
SUEORDI 
AUTHOR: 


CEPTS  CLO 
RMAT.  DAT 
LLING  OJU 
DEST  YEAR 
MORY  VARI 
ARCHED  SE 
ENED  OR  C 
E    BIWKSTA 

THE  LAST 
EN  THE  CU 
WKSTAT  DA 
FORT  IS  T 
IS    PROCES 

BATCH,     D 
ECIFIC    DA 
TA    REAL. 
DINATE    MO 
NATE    MODU 

J.G.  BOY 


SING  DA 

E  IS  CO 

LIAN.  D 

ARE  CA 

AELES. 
C.UENTIA 
LCSED  D 
I  DATAB 
REPORT 
BRENT  C 
IABASE 
HEN  PRI 
SING. 
URING  ■ 
Y  FOR  T 

EULES: 
IES:  NO 
NTON 


TE  FOR  T 
NVERTED 
ATES  FOR 
LCULATED 
OPEN  AND 
LLY  FOR 
URING  TH 
ASE  IS  R 
TO  CALC 
OUNTS  AR 
FOR  FUTU 
NTED  USI 
THE  PROG 
OFF'  HOU 
HE  CUTOF 

SUPRPTS 

NE 


HE  REPORT  IN  MMDDYY 
TO  JULIAN  FORMAT  EY 
PREVIOUS  YEAR  AND 
AND  STORED  INTO 
CLOSE  DATABASES  ARE 
ANY  CASES  WHICH  WERE 
E  PERIOD  IN  QUESTION 
EAD  FOR  THE  COUNTS 
ULATE  THE  TREND.  AND 
E  PLACED  INTO  THE 
RE  REFERENCE.  THE 
NG  THE  COUNTS  FROM 
RAM  SHOULD  BE  RUN 
RS,  AND  ONLY  ON  THE 
F  TO  KEEP  THE  TREND 


** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


*********************************** ** ******** ************** 


*****    INITIALIZATION    OF    VARIAELES 


STORE 

i 

t 

TO    BW:CURR 

STORE 

i 

t 

TO    BW:PREV 

STORE 

i 

i 

TO    BW:CLD 

STORE 

0 

TO 

EW: 

:CREC 

STORE 

0 

TO 

EW: 

CCLOS 

STORE 

0 

10 

EW: 

C9C0G 

STORE 

0 

10 

EW. 

:CSFCC 

STORE 

0 

10 

EW: 

PR  EC 

STORE 

0 

TO 

EW 

:PIN 

STORE 

0 

TO 

EW: 

PCLOS 

STORE 

0 

TO 

EW- 

:P9C0G 

STORE 

0 

TO 

EW: 

PSPCC 

STORE 

0 

TO 

EW 

:OREC 

STORE 

0 

TO 

EW: 

OCLOS 

STORE 

0 

10 

EW. 

:OCLOS 

STORE 

0 

TO 

BW: 

09C0G 

STORE 

0 

TO 

EW. 

:  OS  FCC 

STORE 

0 

10 

BW. 

:CRECC 

STORE 

0 

TO 

EW 

:PRECC 

STORE 

0 

10 

BW. 

:ORECC 

STORE 

0 

TO 

BW. 

:OPERR 

STORE 

0 

10 

EW. 

ICERROR 

STORE 

0 

TO 

EW 

:PERROR 

STORE 

0 

10 

EW, 

:OERROR 
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*****  THIS    SEQUENCE    CALCULATES    THE    UPPER    AND    LOWER    YZARS 

*****  FCp    INPUT     AND    IS    BASED    ON    THE    CURRENT    JULIAN    DATE 

*****  c:  JULIAN.     BW:LLIMIT=     '/EAR    MINUS    TWO    YEARS 

*****  BW:OLIMIT    =    YEAB    PLUS    ONE    YEAR 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
RELEASE 


$  (c:  julian,  1.2)  to  tempi 
val  (tempi)    to  tempi a 
vai  ('2')    tc  low 
vai  («  1*1    to  high 
tekp1a-low  to  iimt 
teep1 a+high  to  ulmt 
stb(llht,2]   to  ew:llimit 

em: 


STBjUIMT.2)    TO    £W:ULIMIi 

TEMPI, TEMPI A,LOW,HIGH,LLMT, ULMT 


STCRE     • 

STORE    T 

ERASE 

DO    WHILE 


•    TO    EW:EDATE 
TO    EW: CHOOSE 

EW:CHOOSE 


a  10,20 

a  1  1,20 
a  1  2,20 
3     14,30 

READ 
IF    S(BW 

.OR. 

.OR. 

.OR. 

.OR. 

.OR. 
3 


SAY 
SAY 
SAY 
GET 


•P 
t 


LEASE    ENTER    THE    CLOSING    DATE' 
FOR    THIS    BIWEEKLY    REPORT  ■ 


BW:EDATE 


<MMDDYY> 
PICTURE 


•999999' 


EDATE,1,2)  <«01 
$(BW:EEATE,  1,2" 
$(BW:EDATE,3,2 
$(BW: EDATE,3,2 
J(BW:EEATE,5,2 
$(BW:EDATE,5,2 
23,30     SAY    • DATE 


i 

>  • 

< 

>  BW 

OUT 


2' 

01 
31 

BW 


:LLIMIT    ; 
U LI MIT 
OF    RANGE' 


ELSE 

STCEE    F    TO    EW: CHOOSE 

END  IF 
ENEDO<BW:CHCCSE> 
a    23,30    SAY    ' 
RELEASE    BW  rCHOOSE,  BW:LLIMIT, BW: ULIMIT 


*****    CALCULATE    THE    EATES    TO    EE    SEARCHED    FOR    AND    ASSIGN 
*****    THEM    T0   THE    7AEABLES:     BW :CURR, BW : PREV, BW: OLD 


*****    ENTER    THE    CALL 
*****    juiian   FORMAT 


TO    C:OJULIAN    TO    CHANGE    MMDDYY    TC 


STORE    VAL  (2  (BW:EDATE 
STORE    VALfl  (BW:EDATE 
STORE    VALJS  (BW:EDATE 
DC   C:OJULIAN 
STORE    V:JUIEATE   TC    EW 
RELEASE    ALL    LIKE    V:* 


'>l'4\ 

,5,2)  ) 


CURR 


TO  V:MM 
TO  V:DD 
TO    V:YY 


STORE  $(BW:CURR, 1 ,2)     TO    BW:TYR 

STORE  VALiEW:TYR)_    TO    BW:TYR3 

STORE  BW:TYR3-1    TO    BW:TYR1 

STORE  BW:TYE3-2    TO    BW:TYR2 

STORE  STR  (EW:TYR1  ,2)     TO    BW:PREVT 

STORE  STR  (EW:TYR2,2)     TO    BW:OLDT 

STORE  3W:PREVT+$ ( BW : CURR. 3 . 3)     TO    BW:PREV 

STORE  BW :OLET+$(BW:CURR,3,3)     TO    BW:OLD 

RELEASE    BW:PREVT, BW: OLDT, BW : T YR, BW: TYR 1 , BW : TY E2 


ERASE 
a    12,20 

a     14,20 
a   23,2  0 


SAY    '     BIWEEKLY    STATUS     REPORT    IS     BEING    • 

♦  • EEOCESS  ED' 

SAY  '  PLEASE  STANDBY 

SAY  •  ****  DO  NOT  INTERRUPT  WHILE  ' 
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+ ' E50CESS ING    ****• 

*****    £NC    DATE    CHANGE    AND    ASSIGNMENT    HERE 

USE    D:OFEN1 

DO    WHILE    .NCI.     EOF 

STORE    DATES    TO     M:DATSS 
STORE    COG    TO    M: COG 

STORE    $  (MtDATES , 11 ,5)     TO    BW:ODAT 
STORE    $  (M:DATES ,36,5)     TO    BW:CDAT 
IF    $  (BW:  CEAT,1,  2)     =    $  (B  W:  CURR,  1  ,  2) 
STORE    BW:CREC    +     1    TO    3W:CF.EC 
IF    BW:CDAT    <>    '  ' 

STORE    BH:CCLOS    +    1    TO    BW:CCLOS 
ELS  E 

IF    $  (M:  COG,  1,1)     =    '9' 

STORE    EW:C9COG    +    1    TO    BW:C9C0G 
EISE 

STORE    BW;CSPCC    +    1    TO    BWrCSPCC 
ENDIF 
ENDIF 
ENDIF    <    THIS    CASE    IN    CURRENT    YEAR    COUNT> 

IF    $  (BW:CDAT,1  ,  2)     =    $  (B  W:  PREV,  1  ,2) 
STORE    BW:PREC    +    1    TO    BW:PREC 
IF    BW:CDAT     <>    «  ' 

STORE    BWtPCLOS    ♦     1    TO    BW:PCLOS 
ELS  E 
~       IF    $  (M:  COG,1  ,1)     =    '9' 

STORE    EW:P9COG    +     1     TO    BW:P9COG 
ELSE 

STORE    EW:PSPCC    +     1    TO    BW:PSPCC 
ENDIF 
ENDIF 
ENDIF    <    THIS    CASE    IN    PREVIOUS    YEAR   COUNT> 

IF    $  (3W:CEAT,1,  2)     =    $ (BW: OLD, 1 , 2) 
STORE    BW:OREC    +    1    TO    BW:OREC 
IF    BW:CCAT    <>    •  ' 

STORE    BW:OCLOS    +     1    TO    BW:OCLOS 
ELS  E 

IF    $  (M:  COG,1  ,1)     =    •  9' 

STORE    BW:09COG    +     1     TO    BW:09COG 
EISE 

STORE    EW:OSPCC    +    1    TO    BW:OSPCC 
ENDIF 
ENDIF 
ENDIF    <    THIS    CASE    IN    OLDEST    YEAR    COUNT> 


IF    $  (BW:  CEAT,1,  2)  <>$  (BW:CURR,1  ,2)     .A 
$  (BW:CEAT,1,  2)  <>$  (BW:PREV,  1,2)     .A', 
$  (BW:CEAT,1,  2)  OS  (BW:  OLD,  1,  2) 

STCEE    BWrOPERR    +    1    TO    BW:OPERR 


ENDIF 
SKIP 

ENDDO    <SEARCH    OF   OPEN1.DBF    > 

*****    ENE    0F   THE    OPENFILE    SEARCH,    NOW    FOR    THE    CLOSED    FILES 

USE    D:CLOSE1 

DO    WHILE    .NOT.     EOF 

STORE    DATES    TO    MrCATES 
STORE    COG   TO    H:  COG 
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STORE    $  (M:DATES,11,5)     TO    3W:ODAT 
S~ 


TORS    $ (M:DATES .36,5)     TO    BW:CDAT 
?    $  (B»:  ODAT,1  ,  2)     =    $(BW:CURR,1, 
STORE    BW:CRECC    +    T    TO    3W:CRE 


f,) 
ECC 


IF 


B  W :  C  D  A I     O    '  ! 

STORE    BH:CEREOR    + 
ENDIF 
ENDIF    <    THIS    CASE    IN    CURRENT    YEAR    COUMT> 


1     TO    3W:C ERROR 


IF    $  (BW: CDAT, 1, 2)     =    $ ]B W: PRE V,  1  ,2) 
STORE    BW:PRECC    +    T    TO    3W:PRECC 
IF    BW:CDAT     <>     ' 


i 

+ 


1     TO    BW:PERROR 


STORE    BW:PERROR 
ENDIF 
ENDIF    <    THIS    CASE    IN    PREVIOUS    YEAR    COUNT> 

IF    $  (BW:CEAT,1,  2)     =    $  (BW:  OLD,  1  -  2) 

STORE    BWtORECC    +    1    TO    BWrORECC 
IF    BK:CDAT    <>    •  ' 

STORE    BW:OERROR    +    1    TO    BW:OERROR 
ENDIF 

ENDIF    <    THIS    CASE    IN    OLDEST    YEAR    COUNT> 

SKIP 


ENEDO  <SEARCH    OF    CLOSE1.DBF    > 

STORE  BW:C9CCG    +    3W:CSPCC    TO    BW:CTOT 

STCRE  BW:P9CCG    ♦    BW:PSPCC    TO    BW:PTOT 

STORE  BW:09CCG    +    BK:OSPCC    TO    BW:OTOT 

STCRE  BW:OEEROR+BW :PERROR+BW :CERROR    TO    BW:TERROR 

STORE  '19'     ♦    $(BW: CURB, 1 ,2)     TO    BW:CYEAR 

STORE  '19'     +    $(BW: PREVr 1 .2       TO    BW:PYEAR 

STCRE  '19'     +    $(BW:  OLD,1  ,2)     TO    BW:OYEAR 

USE   D: BIWKSTAT 


STCRE    TOTALS    TO    BW:SCTOT 

SKIP 

STCRE    TOTALS    TO    BW:SPTOT 

SKIP 

STCRE    TOTALS    TO    BW:SOTOT 


STCRE  ' 
STCRE  ■ 
STORE     » 


•  TO  BW:CLAEEL 

•  TO  BW :PLA£EL 

•  TO  BWtOLAEEL 


IF    BW:SCTOT    <    BW:CTOT 

STORE     'UP1    TO    BW:CLABEL 
ENDIF 
IF    BW:SCTOT    >    BW:CTOT 

STORE     'DOWN1     TO    EW:CLABEL 
ENDIF 
IF    BW: SPTOT    <    BW:PTOT 

STORE     ■  0E»    TO    EW:PLABEL 
ENDIF 
IF    BW:  SPTOT    >    BW:PTOT 

STORE     'DOWN'     TO    B5i:PLABEL 
ENEIF 
IF    BW:SOTOT    <    BW:OTOT 

STORE     ,UP'    TO    EW:OLABEL 
ENDIF 
IF    BW:SCTOT    >    BW:OTOT 

STORE     «ECWN'    TO    BW:OLABEL 
ENDIF 

STORE    BW: SOTCT-BW:  OTCT    TO    BW:OTRD 
STCRE    BW:SPTCT-BW: PTOT    TO    BW:PTRD 
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STORE    BW: SCTCT-BW: CTCT    TO    BW:CTRD 


SET    FCEMAT    TO    PRINT 


EJECT 


3 

a 
a 

a 

a 
a 

0) 


2) 


a 


2,30 
« ,  3  0 
6,30 
8,30 
8,47 

10,30 
10,50 
12,  10 

13,10 

14,  10 


<,  a 

T.  • 


SAY     »  CODE    9  142    TECHNICAL 

SAY     ■  QU&LIT1    DEFICIENT    MATERiai, 

SAY     ■  BIWEEKLY    STATUS    REPORT        ■ 

SAY     '  THRU' 

SAY    $  <Btf:SDATE,1  ,2)  ♦ '/'  +S(BW:  EDATE,3,2)  +; 
■/■♦*  (BW:EDATE,5,2) 
SAY     • 


JULIAN    DATE* 


SAY 
SAY 
+  ' 

SAY 
+  • 

SAY 
+  « 


EW:CURR 
t 

SPCC  9-COG  TOTAL 

'CALENDAR  CASES 

CPEN  OPEN  OPEN 

•  YEAR       RECEIVED 

CASES  CASES  CASES 


CASES 

TREND' 
CLOSED 


TO    BW:TOREC 


a  18,13  SAY  EW:OYEAR 
STCRE    BW;OREC+BW:ORECC 

3  18,18  SAY  EW:TOREC 

a  18,30  SAY  EW:ORECC 

a  18,40  SAY  EW:OSPCC 

a  18,50  SAY  EW:09COG 

a  18,60  SAY  EW:OTOT 

a  18,70  SAY  EW:OTRD 

a  18,80  SAY  EW:OLAEEL 

a    20,13    SAY    EW:PYEAR 

STCRE    BW:PREC+EW:PRECC    TO    BW:TPREC 


a 
a 
a 
a 
a 
a 
a 


20,  18 
20,30 
20,40 
20,50 
20,60 
20,70 
20,80 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


BW 
EW 
EW 
EW 
EW 
EW 
EW 


TPREC 

PRECC 

PSPCC 

P9CCG 

PTOI 

PTRD 

PLABEL 


a    22,13  SAY    EW:CYEAR 
STCRE    BW:CREC+BW:CRECC 

a    22,18  SAY    EW:TCREC 

a    22,30  SAY    EW:CRECC 

a    22,40  SAY    EW:CSPCC 

a    22,50  SAY    EW:C9CCG 

a    22,60  SAY    EW:CTOT 

a    22,70  SAY    EW:CTRD 

a    22,80  SAY    EW:CLABEL 


TO    BW:TCREC 


a    36, 

a    40, 

a  40, 
a  40, 

STCRE 

a  42, 
a   42, 

STCRE 
IF    BW 

S 
ENDIF 
IF    BW 

S 
ENDIF 
STCRE 
a  42, 
a    42, 


24  SAY     ' 

25  SAY  BW:PYEAR 
40  SAY  BW:CYEAR 
55    SAY    'TREND' 

BW:PREC+BW:PRECC    TO    BWtTPREC 
18    SAY    EW:TPREC 
32    SAY    EW:CREC 

•  •    TO    BW:TLAEEL 

:TPREC    >    BW:CREC 
TORE    'ECWN'    TO    BW:TLABEL 

:TPREC    <    BW:CREC 

TORE     'UP'     TO    BW:TLABEL 


CASE    INPUT    COMPARISON' 


BW:CREC-BW:TPREC 
48    SAY    EW:TTRD 
59    SAY    EW:TLABEL 


TO    BW:TTRD 


*****    PAGE    TWO 
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STCRE    BW:CREC+BW:PR2C+BW:0EEC    TO    5W:TREC 
STCRE    BW:CRSCC+3W : PEECC+BW :ORECC    TO    BW:TRECC 

3     2,30     SAY     '  CODE    9142    TECHNICAL    BRANCH' 

S    4,3  0    SAY     ■  QUALITY    DEFICIENT    MATERIAL' 

3    6,30     SAY     '  BIWEEKLY    STATUS    REPORT        ' 

3    8,30     SAY     •  THRU* 

3    8,47    SAY    $  <BW:EDATE,1  ,2)  ♦'/•♦$(BW:  EDATE,3,2)  ; 

♦  •/■  ♦$  (3W:EDATE,5,2) 
3    10,33    SAY     *  JULIAN    DATE' 

3    10,52    SAY    EW:CURR 

3  14,25  SAY    'TOTAL     RECORDS    ON    OPEN    FILE:' 

a  14,70  SAZ    EH:IREC 

a  16,25  SAY    'TOTAL    RECORDS    ON    CLOSED    FILES:' 

a  16,70  SAY    EWrTRECC 

a  18,25  SAY     'RECORDS    WITH    INVALID    DATES, OPEN    FILE:' 

a  18,69  SAY    EW:OPERR    -    1 

a  20,25  SAY     'RECORDS    WITH    INVALID    DATES, CLOSED    ' 

+' FILE: ' 

a  20,70  SAY    EW:TERROR 

a  28,40  SAY    'END   OF    REPORT' 

E  7FC T 

SET    FORMAT    TO    SCREEN 

*****    STUFF    NEW    COUNIS    INTO    THE    BIWKSTAT    DATABASE 

USE   D: BIWKSIAT.DBF 

REPLACE    TOTAIS    WITH    BWcCTRD 

SKIP 

REPLACE    TOTALS    WITH    EW:PTRD 

SKIP 

REPLACE    TOTALS    WITH    BW:OTRD 


ERASE 
RETURN 


RELEASE    ALL    LIKE    BW:* 


*****    ENE    CF    PROGRAM 
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XVII.    MONTHLY    STATISTICS    REPORT    MODULE 


*********************************************************** 

**  ** 

**       DATE:       8   JANUARY    1984  ** 

**       VERSION:    1.0  ** 

**       MODULE    SAME:    XXMNSTAT  ** 

**       MODULE    PURPOSE:     CALCULATE    MONTHLY    STATISTICS     REPORT  ** 

**       MODULE    INTERFACE    DEFINITION  ** 

**               INPUTS:        C:HHCr    C:JULIAN  ** 

**               OUTPUTS:     NONE  ** 

**       MODULE    FROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**                     ACCEPTS    THE    ENDING     DAIS    AND    THEN    CALCULATES    THE  ** 

**                    JULIAN     DATE    FOR    THIS    YEAR    AND    THE    PRIOR    TWO  ** 

**                     YEARS.       THE    CPEN    AND    CLOSE    DATA    BASES    ARE  ** 

**                     SEARCHED    SEQUENTIALLY    TO    FIND    THE    STATUS    OF  ** 

**                     EACH    CASE    IN    THE    DESIGNATED    TIME    PERIODS     AND  ** 

**                     COUNTS     ARE    SUMMARIZED    INTO    MEMORY    VARIABLES.  ** 

**                     AFTER    PROCESSING,     THE    REPORTS    ARE    GENERATED    TO  ** 

**                    THE   PRINTER.      THIS     INCLUDES    THE    MONTHLY    STATUS  ** 

**                     REPORT     BY    YEAR,    COMMAND    KEY    INDICATORS    FOR  ** 

**                     CURRENT    YEAR,    AND    THE    SUMMARY    REPORT    FOR    THE  ** 

**                    CURRENT    YEAR.       THIS    SHOULD    BE    DONE    'OFF'     TIME  ** 

**                     AND    WHEN    THE    SYSTEM    IS    NOT    BEING    USED.     OUTPUT  ** 

**                    IS    DIRECTED    TO    THE    PRINTER.  ** 

**                    ERROR    LISTING    CAN     EE    RETREIVED    IN    D:MSBAD.TXT  ** 

**                 .   BY    'TYPING'     USING     THE    OPERATING    SYSTEM.  ** 

**       SUPERORDINATE    MODULES:     SUPBPTS  ** 

**       SUEORDINATE     MODULES:    NONE  ** 

**       AUTHOR:    J.G.     BOYNTON  ** 

**  ** 
***************************  ******************************** 

SET    ALTERNATE    TO    D:MSEAD 
STORE     1    TO    MS:  ROW 

*****    INITIALIZATION    OF    VARIAELES 

STORE  0  TO  MS:CRCVD 
STORE  0  TO  £S:OPTOT 
STORE  0  TO  MS.'CLTOT 
STORE  0  TO  KS:OPERR 
STORE    0    TO    MS:CLERR 

*****    THIS    SEQUENCE    CALCULATES    THE    UPPER    AND    LOWER    YEARS 
*****    F0R    INPUT     AND    IS    BASED    ON    THE    CURRENT    JULIAN    DATE 
*****    C:JULIAN.     MS:LLIMIT=    YEAR    MINUS    TWO    YEARS 
*****    KS:ULIMIT    =    YEAR    PLUS    ONE    YEAR 


STORE    $  (C: JULIAN, 1 . 2)    TO    TEMPI 
STORE    VAL  (TEMPI)     TO    TEMP1A 
STORE    VAL  ('  2')     TO    LOW 


STORE    VAI(»  1«)     TO    HIGH 

STORE    TEMP1A-LOW    TO    LLMT 

STORE    TEMP1A+HIGH    TO    ULMT 

STORE    STR(LLMT,2)    TO    MS:LLIMIT 

STORE    STR(ULMT,2)     TO    MS:ULIMIT 

RELEASE    TEMPI, TEMPI  A , LOW, HIGH, LLMT, ULMT 

*****    INPUT    OF    REPORT    CLOSING    DATE 
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STCRE     • 
STORE    T    TO 

ERASE 


•     TO     MS:  ED  ATE 
MS:CHOOSE 


uu 


khil: 
a 
a 

9 

a 

RE 
IF 


10,2 
11,2 
12,2 
14,3 
AD 
$  (M 
.OR 
.OR 


'•^JOCSE 


0  SAY    « PLEASE    ENTER    THE    CLOSING    DATE' 

C  SAY    '  FOR    THIS    MONTHLY    REPORT  ' 

0  SAY    ■  <MMDDYT>  ' 

1  GET    MS:EDATE    PICTURE     «999999' 


EL 

EN 
ENDDO  < 
3    23,30 

RELEASE 


E,1,2 


.  .  «.)     <    '  C 
EEATE, 1, 2) 

ATS, 3, 2 

I    TV       ~3       O  \ 

i  i  i.  aj  t   -'  /   a-  ) 


1 


1« 
>' 

EDATS,3,2j     < 
DATE, 3,  2)     y  , 

EEATE. 5. 2      < 

DATE, 5. 2) >MS:ULIMIT 
n    <;  a  v    *    hi 


\2 

•0 
1 


MS:LLIMIT 


0    SAY 


DATE    OUT    OF    RANGE' 


SE 

STOEE    F   TO    MS:CHOOSE 
DIF 
MS:C 

SAY 

MS 


HCOSE> 
i 


CHOOSE, MS:LLIMIT, MS: ULIMIT 


*****    CALCULATE    DATES    TO    BE    SEARCHED    FOR    AND    ASSIGNS    THEM 
*****    TC    VARIABLES 


*****    ENTER    THE    CALL    TO    C:OJULIAN    TO    CHANGE    MMDDYY    TC 
*****    juiiaN   FORMAT 


STORE     VAL  ($  (MS:EDATE,1  ,2)  ) 
STORE    VAL($  (MS:EDATE,3,2) 
STORE    VAL($  (MS  :  ED  ATE,  5  ,  2)  ' 
DC   C:OJULIAN 
STORE    V:JUIEATE   TO    MS:CJUL 


TO 
TO 
TO 


V:  MM 
V:DD 
V:  YY 


*****    THIS    CALCULATES    THE    J 
*****    0F    THE    MONTH    OF    INTER 


ULIAN    DATE    OF    THE    FIRST    DAY 
EST 


STORE     VAL('OI') 
DC   C:OJULIAN 


0    V:DD 

i  I    F  I      r:  jiJ  LEAH    TO    MS:CJUL1 


STORE 

STORE 

STORE 

*****    CALCULATE 

*****    PREVIOUS 


STORE  $(MS:CJUL,  1 
STORE  VAL7mS:TYR) 
STORE  MS:TYE3-1  T 
MS: TYR3-2  T 
STR  (MS:TYR1 
STR (MS:TYR2 
THE  CALENDA 
YEAR 


STORE    VAL (|  (MS: ED 
STORE     VAL(I(MS:ED 
STORE    VAL(MS:PREV 
DC  C:OJULIAN 
STORE    V:JULDATE    T 

****    CALCULATES    FIRST    DAY    0 

STORE    VAL('OI')     T 
DC   C:OJULIAN 
STORE    V:JULDATE    T 

*****    CALCULATES    ENDEATE   OF 

STORE     VAL($(MS:ED 


,2)     TO    MS:TYR 

TO    MS:TYR3 
C    MS:TYR1 
0    MS:TYR2 
,2)     TO    MS:PREVT 

2)     TO    MS  *  OLDT 
R*    AND    JULIAN     DATES    FOR    THE 


ATE, 1,2)  )  TO  V:  MM 
ATE, 3, 2)  TO  V:DD 
T)     TO    V:YY 

0    MS:PJUL 

E    MONTH    IN    PREVIOUS    YEAR 

C    V:DD 

0    MS:PJUL1 

MONTH    IN    OLDEST    YEAR 

ATE,1 ,2)  )     TO    V: MM 
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STORE    VAL  ($  (MS:  ED  ATS.  3,  2)) 
STOHE    VAL{MS:OLDT)     TO    V:YY 
DC   C:OJULIAN 
STORE     V:JUICATE   TO    NS:OJUL 


TO    V:DD 


*****    CALCULATES    FIRST    DAY    OF    HONIH    IN    OLDEST    YEAR 

STORE    VAL('OI')     TO    V:DD 

DC   C:OJULIAN 

STORE    V:JUIDATE   TO    MS:OJUL1 

RELEASE    MS:PREVT, MS: OLDT, MS :T YR, MS : TYR 1 , MS:TYS2; 

MS:TYR3 
RELEASE    ALL    LIKE     V:* 

ERASE 

3    12,20    SAY    •     MONTHLY    STATUS    REPORT    IS     BEING     ; 

♦  • IBOCESS  ED1 
a)     14,20    SAY    «  PLEASE    STANDBY  ' 

a)    23,20    SAY    •  ****     DC    NOT    INTERRUPT    WHILE    ; 

+• PROCESSING    ****• 

*****    END    DATE    CHANGE    AND    ASSIGNMENT    HERE 


*****    SEARCH   THE   OPEN    DATABASE 


STORE 

0 

TO 

MS: 

C01 

STCRE 

0 

TO 

MS 

:C02 

STORE 

0 

TO 

MS: 

C03 

STCRE 

0 

TO 

MS 

:C04 

STORE 

0 

TO 

MS: 

:P01 

STCRE 

0 

TO 

MS. 

:P02 

STORE 

0 

TO 

MS' 

:P03 

STCRE 

0 

TO 

MS 

:POU 

STORE 

0 

TO 

MS. 

:001 

STCRE 

0 

TO 

MS. 

:002 

STORE 

0 

TO 

MS. 

:003 

STCRE 

0 

TO 

MS. 

:OOU 

STORE 

0 

TO 

MS: 

PTOT 

STCRE 

0 

TO 

MS 

:OTOT 

USE   D:OPEN1 

DO    WHILE    .NCT.     EOF 

STORE    DATES    TO    M:DATES 

STORE    $  (M:DATES , 11,5)     TO    MS:ODAT 
STORE    $  (M:DAT£S ,36,5       TO    MS:CDAT 
*****    IF    CASE    IS    IN    CURRENT    YEAR 

IF    $  (MS:CDAT,1,  2)     =    $  (MS:  CJUL,  1 ,2) 

IF    MS:CDAT    >     MS:CJUL1     .AND.     MS :OD AT<MS : C JUL 
STORE    MS:CRCVD    +    1    TO    MS:CRCVD 

*****    IF    CA£E    IS    STILL    OPEN    IT    SHOULD    BE    IN    THIS    FILE 

IF    MS  *  C  CAT    =       '  ' 

STORE    VAL($  (MS:CJUL,3,3)  )     TO    V:CDAT 
STORE    VAL(3]MS:0DAT,3,3)  j     TO    V:CDAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR  (V:TIMEN,3)     TO    MS:TIME 
RELEASE    ALL    LIKE    V:* 

DO    CASE 

CASE    MS:TIME    <    »61' 
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STORE  MS:C01  +  1  TO  MS:C0  1 
CASE    HS:TIHE    <    *  12 V 

STORE  MS:C02  ♦  1  TO  MS:C02 
CASE    MS:  TIME    <     M8  1» 

STORE  MS: CO 3  +  1  TO  MS: CO  3 
CASE    MS: TIME    >     '180' 

STORE    MS:CO<*    +    1     TO    MS:COU 
ENDCASE 
ENDIF 
ENDIF 
ENDIF    <    CASE   OPENED    IN    THE    CURRENT    YEAR    > 


*****    IF    CASE    IS    IN     fBEVIOOS    YEAR 

IF    $  (MS:CEAT,1,  2)     =    $  (MS:  PJUL,  1  ,2) 

IF    MS:ODAT    >    MS:PJUL1     .AND.     MS: OD AT<MS : PJ UL 
STORE     HS:ETOT    ♦     1    TO    MS:PTOT 

*****    IF    CASE    IS    STIIL    OPEN    II    SHOULD    BE    IN    THIS    FILE 

IF    MS ' C  EAT    =       '  * 

STORE    VAL  ($  (MS:PJUL,3,3)  )     TO    V:CDAT 
STORE    VAL  ($  (MS:ODAT,3,3)  )     TO    V:ODAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR  (V:TIMEN.3)     TO    MS:TIME 
RELEASE    ALL    LIKE    V:* 

DO    CAS17 

CASE    MS:TIME    <     '61' 

STORE    MS:P01    +    1    TO    MS : FO 1 
CASE    MS:TIME    <     '  12V 

STORE    MS:P02    +    1     TO    KS:E02 
CASE    MS:TIME    <     •  18 1  • 

STORE    MS:P03    +    1     TO    MS:E03 
CASE    MS:TIME    >    • 180' 

STORE    MS:P04    +    1     TO    MS : F04 
ENDCASE 
ENDIF 
END  IE 
ENDIF    <    CASE    OPENED    IN    THE    PREVIOUS    YEAR    > 

*****    IF    CASE    IS    IN    CIDEST    YEAR 

IF    $  (MS:ODAT#1r  2)     =    $  (MS:  OJUL,  1  ,2) 

IF    MS:ODAT    >    MS:0JUL1     .AND.    MS :OD AT<MS : CJUL 
STORE    MS:OTOT    +    1    TO    MS:OTOT 

*****    IF   CASE    IS    STILL    OPEN    IT    SHOULD    BE    IN    THIS    FILE 

IF    MS  *  C  C  AT    =       *  ' 

STORE    VAL($  (MS:OJUL,3,3)  )     TO    V:CDAT 
STORE    VAL($  (MS:ODAT,3,3)  )     TO    V:ODAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR  (V:TIMENr3)     TO    MS:TIME     _ 
RELEASE    ALL    LIKE    V:* 

DO    CASE 

CASE    MS:TIME    <     »61' 

STORE    MS:0O1    +    1    TC    MS : CO  1 
CASE    MS:TIME    <     '121' 

STORE    MS:002    +    1     TO    MS:C02 
CASE    MS:TIME    <    » 181' 

STORE    MS:003    •«■    1    TO    MS:C03 
CASE    MS:TIME    >     ' 180* 

STORE    MS:004    +    1     TO    MS:C04 
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END CASE 
ENDIF 
END  If 
ENDIF    <    CASE   OPENED 


IN    THE    OLDEST 


> 


IF    | 


4> 
$ 


ENDIF 


[MS:C£AT#1  , 

MS: CEAT,1 , 

:MS:CIAT,1, 

STCRE    MS: 

STOBE    CAS 

SET    ALTE 

MS: ROM 

MS:ROW 

MS: ROW 

+$(MS: 

MS:ROW 

$(MS:C 

TCRE    MS 

El    ALTE 


<>$ 


(MS:CJUL, 1 
OS  (MS:PJUL,1 


* 


S1 

s 


2 

2 

2)<>$  (M5:OJUL;i 

OPERR  +  1  TO  MS 
E  TO  MS:CASE 
RNATE  ON 
,10  SAY  'OCASE* 
,18  SAY  MS:CASE 
.30  SAY  $(MS:ODAT,  1,2) 
OCAT,3,2) 
40  SAY 

+r/,+S  (MS'CDAT 
TO  MS: ROW 
RNATE  OFF 


+  i 


,40    SAY 
DAT.3,2) 
:ROW    ♦    1 


)  +'/' +$  (MS:ODAT, 
$(MS:CDAT, 1,2) +  ! 


/' 

5, 

5^2) 


+ : 


STORE    MS:CPTOT 
SKIP 


♦    1    TO    MS:OPTOT 


ENDDO    <    WHIIE    NOT    EOF    IN    OPEN    FILE    > 
*****    START    THE    SEARCH    AND    COUNT    IN    THE    CLOSED    DATABASE 
*****    INITIALIZATION    CF    VARIABLES    FOR    CLOSED    FILE 


STCRE 

0 

TO 

MS 

:OCL1 

STORE 

0 

TO 

MS: 

.OCL2 

STCRE 

0 

TO 

MS 

:OCL3 

STORE 

0 

TO 

MS: 

:OCL4 

STCRE 

0 

TO 

MS 

:PCL1 

STCRE 

0 

TO 

MS: 

:PCL2 

STCRE 

0 

TO 

MS. 

:PCL3 

STCRE 

0 

TO 

MS: 

.  PCL4 

STCRE 

0 

TO 

MS 

:CCL1 

STCRE 

0 

TO 

MS: 

CCL2 

STCRE 

0 

TO 

MS 

:CCL3 

STORE 

0 

TO 

MS: 

.CCL4 

USE    D:CLOSE1 

DO    WHILE    .NCI.    EOF 

STORE    DAIES    TO     M:EATES 


STORE 
STORE 


(M:DATES,11 ,5)     TO    MS:ODAT 
(M:DATES ,36,5)     TO    MS:CDAT 

IF    $  (MS: CEAT,1, 2)     =    $  (MS: CJUL, 1  ,2) 


IF    MS:CDAT    >    MS:CJUL1 
STORE    MS:CBCVD    + 


.AND.     MS:CDAT<MS:CJUL 
1     TO    MS:CRCVD 


IF    MS:CDAT    <>       •  ' 

STORE    VAL($  (MS:CDAT,3,3)  )     TO    V:CDAT 
STORE    VAL($  (MS:ODAT,3,3)  )     TO    V:ODAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR  (V:TIMEN,  3)     TO    MSzTIME 
RELEASE    ALL    LIKE    V:* 


DO 


CASE 
CASE 

CASE 


MS:TIME    <    '61  • 
STORE    HS:CCL1    + 
MS:TIME    <     M21» 


1    TO    MS:CCL1 
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STORE  MS:CCL2  +  1  TO  M3:CCL2 
CASE  MS:  TIMS  <  M81« 

STORE  MS:CCL3  ♦  1  TO  MS  :CCL3 
CASE  MS: TIME  >  «  180' 

STORE    aS:CCL4    ♦     1    TO    MS :CCL4 
ENDCASE 
ENDIF 
ENDIF 
ENDIF    <    CASE   OPENED    IN    THE    CURRENT    YEAR    > 


*****    IP    CA£E    IS    tn     IFEVIOUS    YEAR 

IF    $  (MS:CCAT,1,  2)     =    $  (MS:  PJOL,  1 ,  2) 

IF    MS:CDAT    >    MS:PJUL1     .AND.     MS:  CDAKMS  :  FJUL 
STORE    MS:PTOT    ♦    1    TO    MS:PTOT 

IF    MS:CDAT    <>       '  ' 

STORE    VAL($  (MS:CDAT,3  ,3)  )     TO    V:CDAT 
STORE    VAL  (1  (MS:ODAT,  3,3)  )     TO    V:ODAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR  (V:TIMEN,  3)     TO    MS:TIME 
RELEASE    ALL    LIKE    V:* 

DO    CASE 

CASE    MS: TIME    <    «61 ' 

STORE    MS:PCL1    ♦ 
CASE    MS:TIME    <     '121' 
STORE    MS:PCL2    ♦ 
CASE    MS: TIME    <     '18  1' 
STORE    MS:PCL3    + 
CASE    MS-.TIME    >     M80' 
STORE    MS:PCL4    + 
END CASE 
ENDIF 
ENDIF 
ENDIF    <    CASE    CLOSED    IN    THE    PREVIOUS    YEAR    > 

*****    IF   CASE    IS    IN    CIDEST    YEAR 

IF    $  (MS:CEAT,1,  2)     =    $  (MS:  OJUL,  1 ,  2) 

IF    MS:CDAT    >    MS:OJUL1     .AND.    MS: CDAT<MS : CJ UL 
STORE    MS:OTOT    +    1    TO    MS:OTOT 

*****    IF    CASE    IS    CLOSED    <    IT    SHOULD    BE    TO    BE    IN    THIS    FILE    > 

IF    MS:CDAT    <>       •  • 

STORE    VAL($  (MS:CDAT,3,3)  )     TO    V:CDAT 
STORE    VAL($lMS:ODAT,3,3))     TO    V:ODAT 
STORE    V:CDAT    -    V:ODAT    TO    V:TIMEN 
STORE    STR(V:TIMEN/ 3)     TO    MS:TIME 
RELEASE    ALL    LIKE    V:* 

DO    CASE 

CASE    MS:TIME    <     «61 ' 

STORE    MS:OCL1    *    1    TO    MS:OCL1 
CASE    MS:TIME    <     M21" 

STORE    MS:OCL2    +    1    TO    MS:OCL2 
CASE    MS:TIME    <     M81' 

STORE    MS:OCL3    +    1    TO    MS:OCL3 
CASE    MS:TIME    >     MSO' 

STORE    MS-.OCLU    +     1    TO    MS:OCL4 
ENDCASF 
ENDIF 
ENDIF 
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1 

TO 

MS:PCL1 

1 

TO 

MS:PCL2 

1 

TO 

MS:PCL3 

1 

TO 

MS:?CLU 

SNDIF    <    CASS    CLOSED    IN    THE    OLDEST    YEAR    > 


IF    $ (MS:CEAT,1, 

$  (MS: CEAT,1, 

$  (HS:CBAT,1, 

STCEE    MS: 

STCEE    CAS 

SET    ALTE 

?    MS: ROW 

?    MS: ROW 

?    MS: ROW 

+$ (MS: 

?    MS: ROW 

3(MS:C 

STCRE    MS 

SET    ALTS 


2)  OS  (MS 

2)< 

2)< 


>S  (MS 


,2) 

,2} 


AND, 
A  H  D 
,2) 

:CLERR 


CJUL,  1 

PJUL,  1 
>S  (MS:OJUL, 1 
CLERR    +    1    TO    MS 
E    TO    MS:CASE 
HNATE    ON 
,10    SAY    'CCASE' 
,18    SAY    MS:CASE 
,30    SAY    $(MS:ODAT,  1,21  + 
OEATr 3f2)  +•/' +$  (MS:ODAT 
,40    SAY    $(MS 
DAT, 3, 2)  +«/'  * 
:ROW    +    1     TO    R 
RNATE    OFF 


5,2) 


:CDATf 1,2) +'/'+; 

+  $  (MS:CDAT,5,2) 
ROW 


ENDIF 
STORE 


MS:CLTOT    +    1    TO    MS:CLTOT 


SKIP 

ENDDO    < 
REIEASE 


SEAECH    FOR    CASE    IN    THE    CLOSED    FILE    > 
MS:CJUL1,MS:PJUL1,MS:OJUL1,M:DATES 


*****    DETERMINE    WHICH    MONTH    IT    IS    FOR    THE    REPORT 


DO    CASE 
CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 

ENDCASE 


$  (MS: 

STORE 

$  (MS: 

STORE 

$(MS: 

STOBE 

$  (MS: 

STOBE 

$  (MS: 

STORE 

$  (MS: 

STOBE 

$(MS: 

STOBE 

$  (MS: 

STOBE 

$  (MS 

STOBE 

$  (MS: 

STORE 

$  (MS: 

STOBE 

$(MS: 

STORE 


ED  ATE 
•JAN 

ED  ATE 
•FEB 

EDATE 
•MAR 

EDATE 

•  APR 
EDATE 

•MAY 
EDATE 

•  JUN 
EDATE 

•JUL 
EDATE 

'AUG 
EDATE 

•SEP 
EDATE 

•OCT 
EDATE 

•NOV 
EDATE 

•DEC 


UAR 

ft1' 

RUA 

'1r 

CH« 

ILf 
<1' 

e3' 

fJ' 

,1, 

UST 

*1' 

TEM 

,1, 

OBE 

EMB 

ft1' 

EMB 


2)     = 

Y'     TO 

2)     = 

BY'     T 
2)     = 

TO    M 
2)     = 
TO    M 

2)     = 

0    MS: 
2)     = 

TO    MS 

2) 

TO 

2)     = 

•    TO 

2)     = 

EER« 

2) 


MS 


R« 
2) 

ER 

2) 

ER 


TO 


•01' 

MS:MONTH 
•02' 

0    MS: MONTH 
•03' 

S: MONTH 
•04« 

S:MONTH 
•05« 
MONTH 
•06« 
:MONTH 
•07« 
: MONTH 
•08' 

MS:MONTH 
•09' 
TO    MS: MONTH 

•  10' 
MS:MONTH 

•  1  1' 

O    MS:  MONTH 

•  12' 

O    MS: MONTH 


STCRE     ' 
STORE     • 

STCRE     • 


19' 
19' 
19  • 


+ 
+ 
+ 


$  (MS 

$(MS 

$(MS 


OJUL, 1,2) 
PJUL,1 ,2 
CJUL, 1,2 


TO 
TO 
TO 


MS:OYR 
MS:PYR 
MS:CYR 


STCRE  MS 
STCRE  MS. 
STCRE    MS 


OCL1+MS:OCL2+MS:OCL3+MS:OCL4    TO    MS:OCL5 
00  1    +    MS:  002    +    MS:003    ♦    MS :  004    TO    MS:C05 
005+MS:OCL5    TO    MS:OCASE 


STORE     MS:PCL1+MS:PCL2+MS:PCL3+MS: PCL4    TO    MS:PCL5 
STCRE    MS:P01    +    MS:P02    +    MS:P03    +    MS:P04    TO    MS:P05 
STCRE    MS:P05+MS:PCL5    TO    MS:PCASE 
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STORE    MS:CCL1+MS:CCL2+MS:CCL3+MS: CCL4    TO    MS:CCI5 
STORE    MS:C01    +    MS:C02    +    MS:C03    ♦    MS:C04    TO    MS:C05 
STORE     HS:C05+MS:CCL5    10    MS:CCASE 


STCRE 
STORE 
STCRE 
STCRE 
STCRE 


0    TO    €0    DAYS'     TO    M5:LBL1 
61     TO    120    DAYS'    TO    MS:LBL2 
121     1C    180    DAYS'     TO    MS:LBL3 
181     EAYS    OR    OVER'     TO    MS:LBL4 
TOTALS:  «    TO    MS  :  L3L5 


SET    FORMAT    TO    PRINT 


3 

2,2 

a 

3,2 

a 

4,2 

a 

5*2 

a 

5,4 

a) 

7,2 

a) 

7,4 

a 

9   2 

a 

9*4 
10, 

2 

a 

11, 

a 

11r 

a 

13, 

a  15 
a  15 
a  15 
a  17 
a  17 
a  17 
a  19 
a  19 
a  19 
a  21 
a  21 
a  21 
a  22 
a  22 
a  22 


5 
5 
5 
5 
2 

8 

8 

7 

4 

42 

25 

40 

10 

15 
33 

48 
15 


48 
15 
33 

48 


SAY 
SAY 
SAY 
SAY 
SAY 

+  •/' 

SAY 

SAY 

SAY 

SAY 
SAY 
SAY 
SAY 
SAY 
+  • 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


CODE    9142    TECHNICAL    BRANCH' 
QUALITY    DEFICIENT    MATERIAL' 
MONTHLY    STATUS     REPORT        ' 
THRU' 

/•  +$(MS: EDATE,3,2) 


$  (MS:EDATE,1  ,2)  ♦• 
+J(MS:EEATE,5,2) 


JULIAN    DATE 


MS:CJUL 

•  MONTH 

MS: MONTH 

MS:OYR 

•TOTAL    CASES' 

MS:OCASE 


OF 


MS 

MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 


LBL  1 

OCL  1 

001 

LBL 

OCL 

002 

LBL 

OCL 

003 

LBL  4 

OCL  4 

004 

LBL  5 

OCL  5 

005 


OPEN' 


CLOSED' 


2 
2 

3 
3 


*****    DATA    F0R    THE    SECOND    YEAR    OUTPUT 


a 

25, 

,42 

SAY 

MS: 

:PYR 

a 

27 

,25 

SAY 

•TOTAL    CASES' 

a 

27, 

,40 

SAY 

MS. 

:PCASE 

a 

29, 

,  10 

SAY 
+  • 

t 

OPEN1 

a 

31, 

,  15 

SAY 

MS 

:LBL  1 

a 

31, 

,33 

SAY 

MS: 

PCL1 

a 

31, 

,48 

SAY 

MS 

:P01 

a 

33, 

,  15 

SAY 

MS: 

.LBL  2 

a 

33, 

,33 

SAY 

MS 

:PCL2 

a 

33, 

,48 

SAY 

MS 

:P02 

a 

35, 

r  15 

SAY 

MS 

:LBL3 

a 

25, 

,33 

SAY 

MS: 

.  PCL3 

a 

35 

,48 

SAY 

MS 

:P03 

a 

37, 

,  15 

SAY 

MS: 

LBL  4 

a 

37, 

,33 

SAY 

MS 

:PCL4 

a 

37, 

,48 

SAY 

MS. 

:P04 

a 

39, 

,15 

SAY 

MS 

:LBL5 

a 

39, 

,33 

SAY 

MS: 

.  PCL5 

a 

39 

,48 

SAY 

MS. 

:P05 

CLOSED' 


*****    DA-xA    joR    THE    CURRENT    YEAR    OUTPUT 
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a  42 
a  uu 
a  44 
a  46 


EJECT 
***** 


£ 

a 

a 

a 

a 

a 
a 

a 


48 
48 
48 
50 
50 
50 
52 
52 
52 
54 
54 
54 
56 
56 
56 


4  2  SAY 
25  SAY 
40   SAY 

10    SAY 

f  i 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


MS:CYR 

'TOTAL    CASES* 

MS: CCA  S3 


15 
33 
48 
15 
33 
48 
15 
33 
48 
15 
33 
48 
15 
33 
48 


MS 
MS 
MS 
MS 
MS 
MS 
HS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 


2 
2 


LBL  1 
CCL  1 
C01 
LBL 
CCL 
CO  2 
LBL  3 
CCL  3 
C03 
LBL  4 
CCL  4 
CO  4 
LBL5 
CCL  5 
C05 


OrEN' 


^_j_o 


CPfi  ' 


SECOND   PAGE   OF    REPORT 


a 
a 
a 
a 
a 

a 

a 
a 
a 
a 

a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 


2,25 
4,25 
6,2  5 
8,25 
8,42 


10 

10 
10 
10 
12 

14 

14 
14 
16 
16 
16 
18 
18 
18 
20 
20 
20 
22 
22 
22 


SAY 
SAY 
SAY 
SAY 
SAY 
•/•♦ 

SAY 
SAY 
SAY 
SAY 
SAY 
♦  ' 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


•  CODE    9142    TECHNICAL    BRANCH1 
■  QUALITY    DEFICIENT    MATERIAL' 

•  COMMAND    KEY    INDICATORS     ' 

•  AS    OF' 

$  (MS:  ED  ATE,  1  ,2)  ♦'/'+$  (MS:  EDA  TE,  3,2)  +; 
$  (MS:  ED  ATE, 5,  2) 

'CASES    RECEIVED    IN' 

MS:  MONTH 

MS:CYR    +'  :' 

MS:CRCVD 


MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 


LBL 

CCL 

C01 

LBL 

CCL 

C02 

LBL 

CCL 

CO  3 

LBL 

CCL 

C04 

LBL  5 

CCL5 

CO  5 


1 
1 

2 
2 

3 
3 

4 

4 


OPEN 


CLOSED' 


EJECT 


*****    THIRD    PAGE    OF    BEPORT 


a 
a 
a 
a 
a 

a 
a 
a 
a 
a 
a 
a 
a 


4,2 

5,2 
5,4 

l'2 
7,4 

9   2 

V 
12, 

12, 

14, 

14, 


5 
5 
2 

8 

8 

7 

4 

20 

64 

20 

65 


SAY 
SAY 
SAY 
SAY 
SAY 

•/■♦ 

SAY 

SAY 

SAY 

SAY 
SAY 
SAY 
SAY 
SAY 


CODE    9142    TECHNICAL    BRANCH' 
QUALITY    DEFICIENT    MATERIAL' 
MONTHLY    STATUS     REPORT        » 
THRU' 

♦$(MS: EDATE,3,2) 


MS:EDATE,1 ,2 


.1,2)  +•/• 

S:EDATE,5,2) 

JULIAN    DATE 
MS:CJUL 

'  MONTH    OF' 

MS:MONTH 
'TOTAL     RECORDS    ON 
MS:OPTOT    -    1 
'TOTAL     RECORDS    ON 
MS:CLTOT 


OPEN    FILE: ♦ 
CLOSED    FILES: ' 
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3     16,20    SAY    'RECORDS    WITH    INVALID    DATES,     OPEN     ■; 

♦  ■ FILE:  • 
5)     16,64    SAY    MS:OPEFR    -    1 
a)    13,20    SAY    •RECORDS    WITH    INVALID    DATES,    CLOSED' 

+  '    FILE:' 
a)    18,65    SAY    l\!S;CLEER 
a)     ^2,35    SAT     'END    OF    REPORT' 
SET    ALTERNATE    OFF 
SEI   ALTERNATE    TO 

EJECT 

SET    FORMAT    TO    SCREEN 

RELEASE    ALL    LIKE    MS:* 
ERASE 

RETURN 

*****    ENC    OF    PROGRAM 
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XVIII.     SCRTED    LISTING    REPORT    MENU 


***************  *  **  ***#***#*  ******£*£^^*^#****#£:?**:'/^.:?;y:*£*  ** 

**  ** 

**       DATE:    22   JANUARY     1984  ** 

**       VERSION:    1.0  ** 

**       MODULE    NAME:    SUPBPT2  ** 

**       MODULE    PURPOSE:     PBOVIDE    MENU    OF    SORTED    LISTING  ** 

**  REPORTS    FOR    THE    SUPERVISOR  ** 

**       MODULE    INTERFACE    DEFINITION  ** 

**  INPUTS:     C:WHO,    C:JULIAN  ** 

**  OUTPUTS:     NONE  ** 

**       MODULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**  DISPLAYS    MENU    FOR    SUPERVISOR    TO    CHOOSE    DESIRED  ** 

**  REPORT.     CAUSES    REINDEXING    OF    APPROPRIATE    FILE  ** 

**  TC    PRODUCE    CUBRENT    VALUES    FOR    REPORT    GENERATION  ** 

**  RESULTS    ARE     STORED    ON    D:     DRIVE    AS    A    'TXT'     FILE  ** 

**  FOR    LATER    ACCESS.     REPORT    MAY    BE    PRINTED    BY    USING  ** 

**  'TYPE'     FUNCTICN    OF     OPERATING    SYSTEM.  ** 

**  PROCESSING    SHCULD    BE    ACCOMPLISHED    DURING     'OFF'  ** 

**  TIME   PERIOD.  ** 

**  ** 

**       SUPERORDINATE    MODULES:     SUPMENU1  ** 

**       SUBORDINATE    MODULES:    SUPRPI 1 , SUPRPT2 ,S UPRPT3 , SUPBPT4  ** 

**       AUTHCR:    J.G.     BCYNTON  ** 

**  ** 
***********  *********  *************************************** 

STORE    T    TO    C:TRUE 
DO    WHILE    C:TRUE 
ERASE 
* 

STORE    ■     ■    TC   V:CHOICE 
TEXT 

*****  SCBTED    LISTING    REPORTS    AVAILABLE  ***** 


1  -    OPEN    FILE    BY    CASE    AND    ANALYST 

2  -    OPEN    FILE    BY    ITEM    MGR    AND    ANALYST 

3  -    OPEN    FILE    BY    COG,    SMIC,    OPEN    DATE 

4  -    CLOSED    FILE    BY    CREDIT    CODE,    CASE 

5  -    EXIT 

ENDTEXT 

3.    19,40    GET    V:  CHOICE 

READ 

* 

IF    V:CHOICE  >='1«  .AND.     V:CHOICE    <    «5« 
ERASE 

2  12,20  SAY     '  THESE    REPORTS    WILL    TAKE    SOME    TIME    TO' 

3  13,20  SAY     '  GENERATE.    IF    YOU    DECIDE    TO    CONTINUE" 
a    14,20  SAY     ■  THE   TERMINAL    MAY    NOT    BE    USED    FOR    ANY' 
a)    15,20  SAY     •  OTHER    PROCESSING    UNTIL    AFTER    •; 

+  'COKPLETION    ■ 
9    23,15    SAY     'PRESS       1    -    TO    ABORT,    ANY    OTHER    KEY    TC 

+•  CONTINUE' 

WAIT  TO    V:BAIL 
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IF    V:B 

RE 

RE 

RE 

END  IF 

DO    CASE 

CASE    V: 

*****    FILE    D:S 

*****    D:SUPEPT 


AI 

LS 
LS 
TU 


L  = 
ASE 
ASS 
RN 


QIC 

RPT 

NDX 

LEA 

E    D 

IND 

TO 

IP 

T   T 

ORE 

ORE 

T    F 

ASE 

T    A 

I    A 


CH 

UP 

1. 

RE 

US 

RE 

GO 

SK 

SE 

ST 
SE 
ER 
SE 

SE 

-? 

+  •  QDR 

♦  » 

+  • 

♦  » 

♦  • 

STORE 

STORE 

DO    WH 

S 


•  1» 

ALL    LIKE    V:* 
C:TRUS 


E    =    '  1' 

1.IXT    IS    CREATED    TO    PROVIDE    THE    REPORT 

IS    INDEXED    ON    WHO+CASE 
SE   ALL    LIKE    V:* 
:CPEN1    INDEX    D:SUPRPT1 
EX 
TCP 

ALK    OFF 

0   TO   P: COUNT 
0    TO    P: TOTAL 
OEMAT    TO    SCREEN 

LTERNATE    TO    D:SUPRPT1 
LTERNATE    ON 
•EATE:     ',DATE() 


CO( 
UI 


CEEN    FILE    EY    ANALYST 
i 

QIY  EXT 

i         CAS  E '  • 

I         SM       FSC    NATO    FUN 


***** 
CASE 

NSN    / 


T*  *1*  ***  ^n   "h 


PART' 
UNI 


OPEN 


T«; 

D*  * 
SCREENING* 


CAT  NOMEN 

PRICE 
PRICE  Q         ORG  DF         C 

CONTRACT    NUMBER  DATE 


UI 
DE 


C 
FNT 


CODE/DATE 


0 


TO    P: PAGE 
TO    ROW 
ILE       .NOT.     EOF 
TORE    P:TOTAL+1    TO    P:TOTAL 

?  '  '  ,CASE, ■  ' ,COG  '  ',SM,  ■  '  , 
,CAT,'  ' ,$(NOtfEN,1 ,9)  •  ',UIC, 
•  '.UPRC,'  ^QTYDEF,1  '  EPRC, 
.•  'jORG,1  ',DEF,'  «,DOC,»  ',NU 
2(DATES,  1  1,5)  ,  '  f,SCR,V',$(DAl 
STORE  ROW-t-1  TO  ROW 
SKIP 

STORE    P:COUNT+1    TO    P:COUNT 
IF    ROW    >    60 
ERASE 
?    CHR(12) 
STORE    0    TO    ROW 
STORE    P:?AGS+1    TO    P:PAGE 


NSN,' 

'      '   ,U 
'      '   ,0 

M,  •     ' 


9Q; 


TES,21  ,5) 


-> 

•? 

h 

i 

+ 
+ 
+ 
+ 
+ 
+ 
■f 
+ 


PAGE       ',P:PAGE 


NSN    /    PART' ; 
QTY 


EXT 


SCREENING* 

1  CASE': 


UNIT 
9 


OPEN 


t 
i  . 

i 
I    . 

t : 
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+ 
+ 

f 
♦ 
+ 
+ 
* 
+ 
9 

S 

ENDIF 


ISC 
NATO    PUN 
QIC 
01  PRICE 


COG 
CAT 


PRICE  Q         ORG 

CONTRACT    NUMBER 
/DATE    • 

IORE    ROW+4    TO    ROW 
<PAGE    IS    FULL> 


S«       '  ; 

NO  MEN 

DEFNT 

DF 
DATE 


cod: 


ENDDO 

9 
9 
9 

? 

?  * 

•? 

9 

9  I 


TOTAL    CASES: '  ,P:TOTAL 


t       ****** 

♦  ' END    CF    OPEN 
+  f  ******** 

?    CHR  (12) 

SET    ALTERNATE 
?    CHR  (7) 
?    CHR  P) 

ERASE 
a    12,20 


CASE 


a)     13,20 
S    20,2  0 
WAIT 
V:  CHOICE 


SAY  ' 
+  » 
SAY  • 
SAY    ' 

=    '2' 


*****    FILE    D:SUPRPT2.TXT   IS 
*****    D:SUPBPT2. NDX    IS    INDE 


*************************** 

FILE    REPORT    BY    ANALYST    &    CASE 

**************************! 


TO 


YOU    MAY    RECEIVE    YOUR    COG, OPEN 
FILE    REPORT    ON' 

D:SUPRPT1.TXT       ■ 
PRESS    ANY    KEY    TO    CONTINUE 


CREATED    TO    PROVIDE   THE    REPCRT 
XED    ON    ACTPT+WHO 


i  . 

t 
i  • 

* 


RELE 

USE 

REIN 

GOTO 

SKIP 

SET 

ST  OR 

ST  OR 

SET 

ERAS 

SET 

SET 


9 

9 
9 

+  ' 
+  • 

+  • 

9 

* 

9 

+  » 
+  • 
+  » 
+  • 

+  • 


ASE 

D:C 

DEX 

TC 

TAI 
E  0 
E  0 
FOR 
E 

ALT- 
ALT 


ALL    LIKE    V:* 
FEN1    INDEX    D:SUPRPT2 


K    OFF 

TO   P: COUNT 

TO   P: TOTAL 
MAT    TO    SCREEN 

ERNATE    TO    D:SUPRPT2 
ERNATE    ON 
DATE:     ',DATE() 


OPEN    FILE 
ANAIYST 


EY 


*****     • 


*****  qd 

ITEM    MANAGER 

NSN    /    FART1 


t 
R« 


UN 
E 
+  ■ 

+  • SCREENING' 
?  •  CAS 

+  • 
+  • 

+  'UI  PR 

+•  PEICE 


IT 
XT 


QTY 


» 
t 

t 

t 


OPEN 


E'; 

COG         SM  FSC    NATO    FUN    '  ; 

CAT  NOMEN                     UIC 

ICE  DEFNT 

Q         ORG  DF         C 


18a 


CASE 


+  • 

STORE 
STORE 
DO    WHI 
ST 


CONTRACT    NUMBER 


DATE 


CODE/DATS 


0  TO  P: 
5  TO  RO 
IE  .NO 
C5E    P:T 

•   ',6 

EPRC, 
•  '  rN 
,$(DA 

STORE 
SKIP 
STORE 
IF    RO 

E 

-? 

• 

S 

s 

+ 
+ 
+ 
+ 
+ 
+ 

+ 

+ 
+ 

S 
ENDIF 


PAGE 
H 

T.     EOF 

OTAI+1 


TO 


ENDDO 

• 
• 

7 

• 

m 
* 

+ 
+ 


»,CiiSS  '  ' 
CAT,'  »,$( 
I,'  '.UPRC 
•  •  09Q  • 
UM,»  ■  ,|(D 
TES,21,5) 
ROW+1    TO 

P:COUNT+1 
W  >  60 
RASE 

CHB(12) 

TORE    0    TO 
TORE    P:PAG 


P: TOTAL 

C  C  "*      1       1        "  '•''       i        t 

f  <**  \J  1J  f  I  _  ..J.  f  f  -I 

NOMEN,1,9)  ,  »        • ,UIT 
',QTYDEF,«        ', 

DOC,  ; 


QTYDEF 
"' ,ORG,'     ',DEF.'     ',D 
ATES, 11,5) , •     l ,SCRr 

ROW 

TO    P: COUNT 


ROW 

E+1    TO    P:PAGE 


■-  /  » 


•  PAGE       ',P:PAGE 

t 


NSN    /    PA 
TY 


RT 


EXT 


UNIT 
9 


OPEN 

:ASE'  ; 


D 


SCREENING 


1  . 

» 

i  . 

i  • 


FSC  N 

EN 
UI 

PRICE 
C   CONTRA 
CODE/DATE 

TORE  ROW+4 
<PAGE  IS 


ATO    FUN 

VIC 

PRICE 

Q         ORG 

CT    NUMBER 
i 

TO    ROW 
FULL> 


COG 

CAT 


SM 
NCM 


DEFNT 

DF 

DATE 


TOTAL    CASES: ' ,P:TOTAL 


4********************************  I. 

OF   OPEN    FILE    REPORT    BY    ITEM    MANAGER    &'; 
Y^t       **  ******************************** i 

RN. 


i 

END 

ANAL 

CHR  ( 
SET    ALTERNATE    TO 
?    CHR 
?    CHR 
ERASE 

a   12,2 


HI 


a   13,2 

a    20,2 

WAIT 
V:  CHOICE 


0  SAY  '  YOU  MAY  RECEIVE  YOUR  COG, OPEN'; 

+«  FILE  REPORT  ON' 
0  SAY  •  DrSUPRPT2.TXT   ' 

C  SAY  ■       PRESS  ANY  KEY  TO  CONTINUE' 

=  '3' 


*****    FILZ    C:SUPRPT3.IXT    IS    CREATED    TO    PROVIDE   THE    REPORT 
*****    D:SUPBPT3.  NDX     IS    INDEXED    ON    COG+SM +$  (DATES ,  1 1  , 5)  +  CASE 
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RELEAS 
USE  D: 
REINDE 

GOTO 
SKIP 
SET  TA 
STCRE 
STORE 
SET  FO 
ERASE 
SET  AL 
SET  AL 

• 
m 

♦•COG, 

* 

■7 

+  ' 

•f  • 
+  « 

+  •       D 

■7 

♦  •  E 

+  •    DF 
+  •  DATE 

•7 

STCRE 
STORE 
DO    WHI- 
ST 


E  ALL 
CFEN1 
X 


LIKE    V:* 

INDEX    D:SUPRPT3 


T  f^V. 


IK    OF? 

0  TO  P: COUNT 
0  TO  P: TOTAL 
EHAT   TO    SCBEEN 

TERNATE    TO    D:SU?RPT3 
TERNATE    ON 
•EATE:     ',EATE() 


SKIC,OPEN    DATE    &    CAS : 

i 


QDR    OPEN    FILE    B' 


NSN    /    PAR 
U 


CAT 


QTY  EXT  9 

OPEN  SCREENING' 

CAS  E '  * 

COG  SM       FSC    NATO    FI 

NO  MEN  UIC  UI  F 

DEFNT  PRICE  Q  ORG 

C    CONTRACT    NUMBER  DATE  COD 


NIT' 
i 


IN    « 

BIC1 
i 


E/ 


0  TO   P: 

5    TO    RO 

IE       .NO 

CEE    P:T 
-?    i 

J     *'? 

01, ' 


■    SO 

,NUM, 
$  (DAT 
STORE 
SKIP 
STORE 
IF  RO 
E 

•7 

• 

s 
s 

■f 
+ 

+ 

■7 

+ 
+ 

♦ 
•7 

s 

ENDIF 


PAGE 

H 

T.     EOF 

OTAL+1    TO    P: 

AT, •     »,$(NOM 

',UPRC,'        ' 

9Q    •     ',ORG, • 

1  .$(D&IES, 


TOTAL 

OG,'     'jSM,1     '.NSN.; 

EN, 1,9),'        ',UIC,<     ' 
,QTYDEF,'        ' ,EPRCr ; 
',DEF    •     • ,DOC, •     ' ; 

11,5)  ,f    ',scr,V',  ; 


ES,  21  ,5) 
ROW+1    TO    ROW 

P:COUNT+1    TO    P:COUNT 
W    >    60 
RASE 

CHR(12) 
TORE    0    TO    ROW 
TORE    P:PAGE+1    TO    P:PAGE 


PAGE       ',P:PAGE 


NSN    /    PART' 


QTY 

OPEN 
•  CAS 

C    NATO    FUN 
UIC  U 

DEFNT 
G  DF 

T       NUMBER 

TORE    ROW+4    T 
<PAGE    IS    FU 


UNIT 

EXT 


SCREENING' 
E»; 

COG  SM 

CAT  NOMEN 

I  PRICE 

PRICE  Q 

C       CONTRAC 
DATE         CODE/DATE    ' 

0    ROW 
LL> 


FS' 
i 

i 

OB' 
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ENDDO 

7 

7 

7 

7 

7 

i 

7 

7 

* 

t 

+  • 

ND 

+  « 

DAT 

+  • 

*** 

7 

CHB 

SET    A 

• 

CKH 

7 

CHR 

ERASE 

a 

12, 

♦  • 

FIL 

a) 

13, 

a 

20, 

WAIT" 

TOTAL  CASES:' ,P:TOTAL 


*****************************! 


>$*^:£*#:£$****£&:£3:**^::$c;£:*$***:^  #*:£:£:£ 

OF  OPEN  FILE  REPORT  BY  COG ,SMIC , OIEN 

E  6  CASE 
**  i 

(12) 

LIERNATE  TO 


HI 


20  SAY  « 
E  REPORT 
20  SAY  • 
20  SAY  ■ 


YOU 

ON' 


MAY    RECEIVE    YOUR    COG, OPEN'; 

DiSUPRPT3.TXT       ' 
PRESS    ANY    KEY    TO    CONTINUE* 


CASE    V:CHOICE   =     '4' 

*****    FILE    D:SUPRPT4.IXT    IS    CREATED    TO    PROVIDE   THE    REPORT 
*****    D:SUPEPT4. NDX    IS    INDEXED    ON    CR+CASE 


RE 
US 

RE 
GO 
SK 
SE 
ST 
ST 
SE 
ER 
SE 
SE 

■7 

7 


LEA 
E  D 
IND 
TO 
IP 
T  T 
ORE 
ORE 
T  F 
ASE 
T  A 
I    A 


SE    ALL   LIKE    V:* 
:CIOSS1     INDEX    D: 
EX 
TCP 

AIK    OFF 
0    TO    P: COUNT 
0    TO    P: TOTAL 

OFMAT    TO    SCREEN 


SUPRPT4 


LTERNATE 

LIERNATE 

'CATE: 


TO    D:SUPRPT4 

ON 
,DATE 


0 


+• CREDIT 

• 

+  • 
+  « 

♦  •       D 

+  • 

♦  • 
7 

ST 
ST 
DO 


***** 

CODE    6    CASE 


QDR    CLOSED 
*****     i 


FILE    EY    ' 


NSN    /    PART* ; 


CAT 

E 
DF 

DATE    ' 


QTY  EXT  9 

OPEN  SCREENING' 

CASECOG         SM       FSC    NATO    FUN 
NO  MEN  UIC  UI 

DEFNT  PRICE  Q 

C    CONTRACT    NUMBER  DATE 


UNIT' 
t 


£ric« 

CRG  ' 

CODE/'; 


ORE    C    TO   P:  PAGE 
CRE    5   TO    ROW 
WHITE       .NOT.     EOF 
STC5E    P:TOTAL+1 
,CASE 


TO 
i  i 


f 


',C 

UI,' 

',o 

,NUM, 
$(DAT 
STORE 
SKIP 


AT. 

?«; 

ES 


□PRC, ' 

'  /*0RG' 
,I(DATES, 

21,5) 


P:TOTAL 
,COG,  '     '  ,SM, 
(NOMEN,  1,9),' 
«,QTYDEF    ' 


DEF, 
11,5)  J 


•     ',NSN. 

•  ,UIC,J 

•  ,EPRC. 
,DOC,'  ' 
SCR,'/', 


r6w+1 


TO    ROW 
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STORE    P:COUNT+1    TO    P:COUNT 
IF    ROW    >    60 

E  E  AS  I 

?    CHS  (12) 

STORE    0    TO    ROW 

STORE    P:PAGE+1    TO    P:?AGE 


7 

•"? 

+ 

+ 
+ 

* 

+ 

+ 
+ 


PAGE       ',P:?AGE 


NSN    /    PART'  ; 
QTY 


D 


UNIT 
EXT 


FS 


OPEN  SCREENING' 

'          CAS  E  COG          S  M 

C    NATO    FUN  CAT            NOMEN 

UIC              til  PRICE 

DEFNT  PRICE            C 

G               DF  C       CONT 

T       NUMBER  DATE         CODE/DA 


OR' 

RAC 
TE    ' 


SIORE    ROW +4    TO    ROW 
ENDIF    <PAGE    IS    FULL> 


CASE 


ERASE 

enccas: 


ENDDO 

-> 

• 

• 

?  * 

+  '     END 
+  '    &    C 

?  CHR  ( 
SET  AL 
?  CHR  ( 
?  CHR  ( 
ERASE 
5)    12,2 

a   13,2 

a    20,2 

WAIT 
V:CHCICE 
RELEASE 
RELEASE 
RETURN 


TOTAL  CASES:'  ,P  :TGTAL 


CF  CLOSED  FILE  REPORT  BY  CREDIT  CODE*; 
£SE   *********#*#*##**#*#**#******#**#*• 

12) 

TERNATE    TO 


M 


BY1 


C  SAY  '  YOU  MAY  RECEIVE  YCUR  REPORT 

♦  ■  CREDIT  CODE  &  CASE  ON' 

0  SAY  •  D:SUPRPT4.TXT   • 

C  SAY  •       PRESS  ANY  KEY  TO  CONTINUE' 


=    «5» 

ALL    LIKE 
C:TRUE 


V:* 


ELSE 


IF    V:CHOICE='5' 

RELEASE    ALL    LIKE 
RELEASE    C:TRUE 
BETURN 

ELSE 


WAIT 
ENDIE 
ENDIF    <V:CHCICE> 
ENDDO    <C:TRUE> 


V:  * 


PLEASE  ANSWER  WITH  A  1  -  5  ONLY' 
PRESS  ANY  KEY  TO  CONTINUE' 
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RELEASE    AIL    LIKE    V:* 
RELEASE    C:TRUS 
EETUSH 

*****    £NE    OF    PROGRAM 
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XIX.     CASE    REASIGNMENT    MODULE 


*********************************************************** 
**  ## 

**  DATE:    22  JANUARY    1984  ** 

**  VERSION:    1.0  ** 

**  MODULE    NAME:    C-REASGN  ** 

**  MODULE    PURPOSE:     REASSIGN    CASE    FROM    ONE    ANALYST    TO  ** 

**                                                    ANOTHER  ** 

**  MODULE    INTERFACE    DEFINITION  ** 

**              INPUTS:    C:WHO,    C:JULIAN  ** 

**               OUTPUTS:  ** 

**  MODULE    PROCESSING    NARRATIVE  DESCRIPTION:                                    ** 

**  RECEIVES    THE    CASE    NUMBER    AND    TWO    ANALYSTS    TO  BE          ** 

**  INVOLVED    IN    THE    TRANSFER.     BEFORE    TRANSFERING  CASE    ** 

**  THE    DATABASE     IS    CHECKED    TO    INSURE    UPDATE    OF  ** 

**  ANALYST    STATISTICS.     RETURNS    FOR    ANOTHER    CASE  TO          ** 

**  BE    ASSIGNED    Of.    FOR   TERMINATION    OF    PROGRAM.  ** 

**  *# 

**       SUPSEOREINATE    MODULES:     UTILMENU  ** 

**       SUEORDINATS     MODULES:    XDBHNDLR  ** 

**       AUTHCR:    J.G.     BOYNTON  ** 

*&*#***%$&#*#*$#&&%**+%%###&&******##**•&*&*&***##  #  $  :£  $  ;Jt  #  #  #  #£ 

STORE    T    TO    R:CONTINUE 
DO    WHILE    R:CONTINUE 
ER  AS  E 

a)    6,24    SAY    ******    CASE    R  E-ASS IGNMEUT    PROCESSING    *****' 
a)    9.2S    SAY    M    -    RE-ASSIGN    CASE    TO    ANOTHER    ANALYST* 
a    10,28    SAY     '2    -    EETURN    TO    UTILITY    MENU* 
STORE    •     '    TO    R:REPLY 
a)    15,40    GET    R:REPLY 
READ 

DC    WHILE    R:REPLY     <    '1'    .OR.    R:REPLY    >    »2* 
a)    23,52    SAY    'ENTER    1     -    2    ONLY'    +    CHR  (7) 
a)    15,40    GET    R:BEPLY 
READ 
ENDDO 
DO    CASE 

CASE    E:REPLY    =     '2' 

RELEASE    ALL    LIKE    R :* 
EETURN 
CASE    R:REPLY    =    M« 

STCRE     •  '    TO    R:CASE 

ERASE 

a)    6,24     SAY     'ENTER     DATA    EOR    CASE    BEING    RE-ASSIGNEDf 

3    9,32    SAY     'CASE    NUMBER       •    GET    R:CASE    ; 

PICTUBE    '999999X* 
READ 

STCRE     *  (R:CASE)    TO    R:CASE 
STCRE    R:CASE    TO    M:  KEY 
STCRE    ■  1E*     TC    M:TYPE 
DO    XDBHNDLR. PRG 
IF    M:TYPE    ='1' 

a)    20,20    SAY    'CASE    IS    CURRENTLY    LOCKED*     +    CHE(7) 
3    22,20    SAY    '    PRESS    ANY    KEY    TO    CONTINUE' 
WAIT 
ENDIF 
IF    M:TYPE<>    *1* 

IF    M:TYPE    =    *9  ' 

3    22,14    SAY     'CASE    DOES    NOT    EXIST    IN    OPEN'; 
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+  »FIL 

+ 

WAIT 
ELSE 

STORE    ' 

store  •    *  : 
do  while  r 
a  11,10 
a  11,32 


E    -    STRIKE 
CHF  (7) 


ANY    KEY    TO    CONTINUE' 


'0    R:NEW 


a 

a 
a 


11,55 
11,62 
14,  10 


REPLY 

CASE    NUMBER       •  + 
NSN        ■     +    $  (M: NSN 
NSN,5,2)  ♦•-•♦$(M 
+•-'+$  (M:NSN,10,4) 


C    R: 
REPL 
SAY 
SAY 
+  $(M 


a     15,10 


READ 
SICRE    ■ 
DC    WHILE 
a   21 


SAY 
SAY 
SAY 
+    M 

SAY 

GET 


M:CASE 
1,4)+' 

NSN, 7, 


3) 


COG    '     ♦  "  M:COG 
CAT       '    ♦    M  :  C  A  T 

CURRENTLY    ASSIGNED 
WHO 

RE-ASSIGN    TO 
R:NEW 


'0 


TO  R:REPLY 
R:REPLY  <•!•  .OR.  R:REPLY 
20  SAY  • 1  -  RE-ASSIGN  ■ ; 

+  •  2  -  CHANGE   3  -  EXIT' 
a  23,20  SAY  •  «  ; 

GET  R:REPLY 


>'3 


READ 

ENDDO 

IF  R:REP 
STOR 
DO  X 
RELE 
RETU 

ENDIF 

IE  $ (M:D 
DO 

ENCIF 

IF  R:REP 
ERAS 

a  10 


LY    =' 3  * 

E    '  1G1     TO    M:TYPE 

DBHNDLR. PRG 

ASE  ALL  EXCEPT  C:* 

RN 

ATES,  46,  1)  =  •*» 

STATISTICS    UPDATE    PROGRAM 


a 
a 
a 
a 
a 


12 
13 
15 
16 
22 


ENDIF 
EN  ECASE 
ENDDC  <CCNTINUE> 


END 
ENDDC  < 


USE 

STOR 

STOR 

DO  X 

STOR 

RELE 

STOR 

STOR 

DO  X 

STOR 

STOR 

DO  X 

RELE 

ERAS 

STOR 

IF 

R:RE 


LY= 

E 
,20 

,20 
,20 
,20 
,20 
,18 

D:0 

E  R 
E  ' 
DBH 
E  M 
ASE 
E  R 
E  ' 
DBH 
E  ' 
E  R 
CBH 
ASE 
E 
E  F 


•1  • 

SAY 

♦  •ST 
SAY 
SAY 
SAY 
SAY 
SAY 

♦  •IN 
PEN1 
:NEW 
1C«  T 
NDLR. 
:CASE 

ALL 
:CASE 
2E'  T 
NDLR. 
2C»  TO 
:NEW 
NDLR. 

ALL 


******    PLEASE     ' ; 

ANDBY    ****** 
CASE    NUMBER       •     ♦    M:CASE 
IS    BEING    RE-ASSIGNED     ' 


FROM 

TO 

***** 

TERRUPT 
INDEX    D 
TO    M:WHO 
0    M:TYPE 
PRG 

TO    R:CASE 
LIKE    M:* 

TO    M:KEY 
0    M:TYPE 
PRG 

M:TYPE 
TO    M:WHO 
PRG 
LIKE    M:* 


'     ♦    M:WHO 

•    ♦   R:NEW 

DO    NOT    • ; 
***** i 

OCASE1 ,D:ONSN 


TO    R:REPLY 


PLY> 


*****    ENC    0F   PROGRAM 
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XX.  ITEM  MANAGER  FILE  UPDATE 


**** 
** 
** 
** 

** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
**** 


*  * ***** ***  *  *  **  *  *  *  ******  *********************  ******* 

DATE:  12  JAN  84 
VERSION:  1.0 

MODULE  NAME:  ADDEUPDT 
MODULE  PURPOSE:  ADD,  UPDATE,  OR 

ADDRESS  RECORDS 


DELETE  ITEM  MANAGER 


MODULE  INTERFACE  DEFINITION 
INPUTS:  NONE 
OUTPUTS:  NONE 

MODULE  PROCESSING  NARRATIVE  DESCRIPTION: 

ALLOWS  THE  ADDITION,  DELETION,  OR  UPDATING 
OF  ITEM  MANAGER  ADDRESS  RECORDS.   ACCEPTS  THE 
ITEM  MANAGER  CODE,  VALIDATES  THE  EXISTENCE  OF 
AN  IM  WHEN  CREATING  NEW  RECORDS,  ALLOWS  THE 
RECALL  OF  PREVIOUSLY  DELETED  RECORDS  DURING 
UPDATE,  AND  VERIFIES  THAT  NO  ACTIVE  COGS 
ARE  ASSIGNED  TO  A  RECORD  BEING  DELETED. 

SUPERORDINATE  MODULES:  UTILMENU 
SUEORDINATE  MODULES:  NONE 
AUTHOR:  R.  G.  NICHOLS 

*************************************************** 


**** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
**  ** 


STORE    T    TO    A:CONTINUE 
DO    WHILE    A:  CONTINUE 

*****       DISPLAY     SELECTION    OPIICNS    AND    ACCEPT    CHOICE 
ERASE 


3  6,18  SAY 

a)  9,28  SAY 

3  10,28  SAY 

d)  11,28  SAY 

a)  12,28  SAY 


i*****    ITEM     MANAGER    ADDRESS    PROCESSING    ****** 

•  1    -     ADD    ADDRESS' 
' 2    -     UPDATE    ADDRESS' 

•  3    -    DELETE    ADDRESS1 
•4    -    RETURN    TO    UTILITY    MENU' 

STORE    ■     •    TO    A:REPLY 

3     15,40    GET    A:REPLY    PICTURE    »9' 

READ 


*****       VALIDATE    RESPONSE 

DC    WHILE    A:REPLY     <    »1"     .OR.     A:REPLY 
9    23,32    SAY    'ENTER    1     -    4    ONLY'     + 
5)    15,40    GET    A:REPLY    PICTURE    '9» 
READ 

ENDDO 

DC    CASE 


>     «  4  • 
CHR  (7) 


*****       jj    CHOICE    IS     QUIT,    RELEASE    ALL    LOCAL    MEMORY    VARIABLES 
*****       AND    EETURN    TO    CALLING    PROGRAM 

CASE    A:REPLY    =    '4' 

RELEASE    ALL    LIKE    A:* 
RETURN 

*****       IF    CHOICE    IS     ADD,    PROMPT    FOR    ITEM    MANAGER     BEING     ADDED 

CASE    A:REPLY    =    »1» 
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STORE 

ERASE 

a    6,20 

a>    9,32 

READ 

STORE 

SELECT 


«     TO     A :  IM 
SAY     'ENTER    DATA    FOR    ITEM    MANGER    BEING    ADDED' 


SAY 


»  T 


TEM    MANAGER    ' 


!-ET     A:IM 


PRIMARY 


E )    TO    k : I M 


USE    D:ADDEESS    INDEX    D:IM 

*****       CF.ECK    FOR    EXISTING    IM    RECORD 

FIND    &A:IM 
IF    #    <>    0 

S    22, 14     SAY    'RECORD    CURRENTLY    EXISTS     -'; 

♦     'STRIKE    ANY    KEY    TO    CONTINUE'     +    CHR(7) 

WAIT 
ELSE 


STORE 

STORE 

STORE 
+ 
STORE 
STORE 
STORE 
STORE 
STORE 


•    TO    A:TITLE 

i  . 

'     TO    A: COMMAND 

t  . 

'    TO    A:COMMAND2 
•    TO    ArATTN 

•  TO    A: STREET 

•  TO    A:CITY 
'    TO    A:STATE 

•    TC    A:ZIP 


*****       FBOMPT    FOR    AND    ACCEP I    NEW    IM    DATA 


a) 
a) 
a) 
a) 
a) 
a) 
a) 
a) 


14 

15 
16 
17 
18 
19 
19 
19 


44 
56 


SAY 
SAY 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


READ 


TITLE 

COMMAND 

COMMAND 

ATTN 

STREET 

CITY     ■     GET    A:CITY 

STATE    •    GET    A:STATE 
ZIP    CGDE    '     GET    A:ZIP    ; 
PICTURE    '99999' 


'     GET 

A '.TITLE 

•     GET 

A:  CO  MM  AND 

•     GET 

A:C0MMAND2 

'     GET 

A:ATTN 

•     GST 

A:STREET 

*****       VERIFY    POST    OR    EXIT 


5)    21,20     SAY    '1     -    POST    NEW    RECORD 

+    '       2    -    EXIT' 
STORE    •      '    TO    A: REPIY3 
3)    23,40    GET    A:REPLY3    PICTURE 
READ 
DO     WHILE    A:REPLY3    <    •  1"     .OR. 

9    23,40    GET     A:REPLY3 

READ 
ENDDC 
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A:REPLY3 


*****       CREATE    NEW    IM    RECORD 

IF    A:REPIY3    =    '  1  • 

APPEND    BLANK 

REPLACE    IM    WITH    !  ( A:  IM)  ,  T  ITLE    WITH    ; 
!  (A:TITLE)  , COMMAND    WITH    !  (A  :  COMMAND)  ,  COMMAND2    WITH; 

!  (A:CCMMAND2)  ,ATTN     WITH    !( A : ATT N)  , STREET    WITH    !(A:STREET) 
CITY     KITE    !   (A:  CITY)  ,  STATE    WITH    !  (A:  ST  AT  E)  ,  ZIP    WITH    A:ZIP 
ENDIF 
ENDIF 


»  » 


*****       !p    CHOICE    IS     UPDATE 

CASE    ArREPLY    =     '2« 

STORE     •  '    TO    A:IM 


193 


*****       EiQUZST     FOR     AMD    ACCEPT    IH    TO    BE    UPDATED 
ERASE 
3    6,19     SAY     «ENTER    DATA    FOR    ITSH    MANGER    BEING    •; 

+     'UPDATED' 
5>„9A3  2    SAY     'ITEM    MANAGER    '     GET    A:IM 

STORE     I  (A:IM)     TO    A:IM 
SELECT    PRIMARY 

*****       RETREIVE     IM     RECORD    BEING    UPDATED 

GSE    D: ADDRESS    INDEX    D:IM 
FIND   SA:IM 
IF    #    <>    0 

a)    22,17    SAY    'RECORD    NOT    FOUND    '; 

♦     ■-    STRIKE    ANY    KEY    TO    CONT INUE '  +CHR  (7) 

WAIT 
ELSE 

STORE    T    TC    A:PROCSSS 


*****       ij    RECORD    DELETED,    PRCMFT    FOR    REACTIVATION    OPTION 

IF    * 

STORE     •     »    TO    A:FEPLY2 

a)    18,22    SAY     'RECORD    HAS    BEEN    MARKED    FOR     «; 

+     'DELETION' 
a)    19,17    SAY     'DO    YOU    WANT    THIS    RECORD    •; 

+     'REACTIVATED    <Y    OR    N> ' 
a)    21,40    GET    A:REPLY2    PICTURE    'A' 
READ 

DC    WHILE    A:REPLY2<>'Y«     .AND.    A:REPLY2<>'N' 

♦  CHR  (7) 


a)     23,31    SAY    "ENTER    Y    OR    N    ONLY' 
a)    21,40   GET    A:REPLY2    PICTURE    'A' 


REAL 
ENDDO 


*****       iy    REACTIVATICK    REQUESTED 

IF    !  (A:REPLY2)     =    •  Y' 
a)     18,22    SAY 

+ 

a)     19,17    S  AY 

+ 
a)    21,40    S  AY 

RECALL 
ELSE 

STORE    F    TC    A:PROCESS 
ENDIF 
ENDIF 


*****       EFCMPT    FOR    AND    ACCEPT    UPDATE    INFORMATION 


DO    WHILE  A:PROCESS 

STORE  TITLE    TO    A:TITLE 

STORE  COMMAND    TO    A:COMMAND 

STORE  CCMMAND2    TO    A:COMMAND2 

STORE  ATTN    TO    A:ATTN 

STORE  STREET    TC    A:STREET 

STORE  CITY    TO    A:CITY 

STORE  STATE    TO    A:STATE 

STORE  ZIP    TO    A: ZIP 


a) 

14, 

r  16 

SAY  ' 

a) 

15, 

,  16 

SAY  ' 

a) 

16, 

,  16 

SAY  ' 

a) 

17, 

,  16 

SAY  ' 

a) 

18, 

,  16 

SAY  ' 

3 

19, 

r  16 

SAY  ' 

a) 

19, 

,  44 

SAY  ' 

a) 

19, 

,  56 

SAY  ' 

TITLE 

COMMAND 

COMMAND2 

ATTN 

STREET 

CITY     •     GET    CITY 

STATE    '     GET    STATE 
ZIP    CODE    '     GET    ZIP 


GET    TITLE 
GET    COMMAND 
GET    COMMAND2 
GET    ATTN 
GET    STREET 
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READ 

a  21, 
♦  • 

STORE 
a    23, 


PICTURE    ■ 99999' 

20    SAY     '1    -    POST    UPDATED    RECORD    • ; 
2    -    EXIT' 
•     •    TO     A:REPLY3 
40    GET    A:RE?LY3    PICTURE    '9' 


*****       PROVIDE     UPDATE/EXIT     OPTION 


READ 
DO    WH 
5) 

R  E 
ENDDO 


HE    A:REPLY3    <    M'     .OR.    A:REPLY3    >    '21 
23,40    GET    A:REPLY3 


*****       jF    UPDATE 


REPLY3    <>     M« 
_PIACE    IM    WITH    !  (A:IM)  , TITLE    WITH    ; 
!  (A:TITLE)  ,  COMMAND    WITH    !  (A  :  CO  MM  AND)_,  COMMAND2    WITH     ; 
!  (A:CCMMAND2)  ,  ATTN    WITH    i  ( A  :  ATTN)  ,  STR  EET    WITH    !  (A  :  STREET)  ,; 
CITY    WITH     !(A:CITY)_,    ZIP    WITH    A:ZIP 

F    TO   A  :PRCCESS 


IF   A: 

RE 

W 

W 

'(A:  CITY) 

ENDIF 

STORE 

ENDDO 

ENDIF 

*****       u    CHOICE    IS     DELETE 


CASE    A:REPLY    = 
STORE     ' 


•3' 

•    TO     A:IM 


*****       ppcMPT    FOR    AND    ACCEPT    IM    BEING    DELETED 


ERASE 

a)    6,19     SAY 

•f 

3    9,32     SAY 
READ 

STCRE  !  (A:  I 
SELECT  PRIM 
USE    D: ADDRE 


•ENTER    DATA    FOR    ITEM    MANGER    BEING    ' 

i EELETE  D ' 

•ITEM    MANAGER    '     GST     A: IK 

V.)    TO   A:IM 

ARY 

SS    INDEX    D:IM 


*****       RETRIEVE    RECORD    BEING    DELETED 


FIND    &A:IM 
IF    #    <>    0 
3   22,17 

+ 
WAIT 
ELSE 


SAY    'RECORD    NOT    FOUND    •; 

•-    STRIKE    ANY    KEY    TO    CONTINUE  « +CHR  (7) 


*****       IF    ACTIVE    COGS    ARE    ASSIGNED,     DO    NOT    ALLOW     DELETE 


IF    COUNT 

a  11 , 

a  12, 

a  13, 

a  14, 

a  15, 

a  16, 

a  18 , 

a  19, 

a  20, 

a  22, 


> 

16 
16 
16 
16 
16 
16 


0 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 


20  SAY 

+ 

15    SAY 

+ 

21  SAY 

•f 

27    SAY 


TITL 
CO  MM 
CCMM 
ATTN 
SIRE 
CITY 
•  + 
ACTI 
ITEM 
ALL 
REAS 
EEFO 
COM 
STRI 


E 

AND 
AND  2 


+ 
+ 
+ 
+ 
+ 


TITLE 
COMMAND 
COMMAND  2 
ATTN 
STREET 
STATE  ' 
•  +  ZIP 
FOR 


+STATE+; 
THIS  •: 


ET 
•♦CITY-1 

•ZIP    CODE 

VE    COGS     EXIST 

MANAGER* 
ACTIVE    COGS    MUST 
SIGNED    TO    ANOTHER 
RE    DELETE    ACTION 
PLE  TED ' 
KE    ANY    KEY    TO    CONTINUE' 


BE    '  ; 

I .  M .  ' 
CAN    BE' 
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WAIT 

ELSE 


+     CHE  (7) 


As.  *  *  A 


PREVIOUSLY 


D,    NOTIFY    OPERATOR 


IF    * 

a)     22.  13  S 
+    •-    ST 

WAIT 
ELSE 

a    1 1  r  1 6  s 

5)    12,16  S 

S     13, 1 6  S 

a    14, 16  s 

3     15,16  s 

3     16, 16  s 


AY     'RECORD    PREVIOUSLY    DELETED     •; 
RIKE    ANY    KEY    TO    CONTIN UE'  +C HE  (7) 


AY 
AY 
a  y 

AY 

AY 
AY 


•TITLE 

•COMMAND 

•COMMAND 

•ATTN 
'STREET 


+    TITLE 
♦    COMMAND 
+    CO MM  AND 2 
+    ATTN 
+    STREET 

STATE     '+STATE; 


•CITY     •+CITY-' 
-•        •♦•ZIP    CODE    '     +    ZIP 
3     1S,20    SAY     '1    -    DELETE    THIS    ITEM    MANAGER 
+     •  2    -    EXIT' 

TO    A : REPL Y2 
ET    A:REPLY2    PICTURE    «9» 


STORE    '     • 
3    21,40    G 


*****       ACCEPT    DELETE/EXIT    OPTION 


REAE 

DO    WHILE 
3    23,4 
READ 
ENEEO 

*****       ip    DELETE    REQUESTED 

IF     A:REPL 
EELETE 
ENEIF 
ENDIF 
ENDIF 
ENEIF 
ENDCASE 
USE 
ENDDC 

*****    EN£    OF   PROGRAM 


A:REPLY2    <    • 1 • 
0    GET    A:REPLY2 


.OR.    A: REPLY2    >    '2 ' 


Y2    =    »  1' 
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XXI.     COG    FILE    UPDATE    MODULE 

***********  ***  ******:$$**  **  *  $  *  £  *  *  *  £  ^  *  *  ^  a;:  *  *  *  #  *  ^t  £*  ^i  £  *  *  #  *  4=  £  £  *  » '^ 
**  ** 

**  DATE:     18  JAN    1  984  ** 

**  VERSION:    1.0  ** 

**  MODULE    NAME:    COGUEDT  ** 

**  MCDUIE    PURPOSE:     ALLOWS     ADDITION,     DELETION,  OR                       ** 

**                                                    UPDATING    CF    COG    FILE  ** 

**  ** 

**  MODULE    INTERFACE  DEFINITION                                                                       ** 

**                INPUTS:     NONE  ** 

**               OUTPUTS:     NONE  ** 

**  ** 

**       MODULE    EROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**  ACCEPTS    NEW    COG    DATA,     VERIFIES    THAT    THE    NEW  ** 

**  CCG    IS    NOT    A    DUPLICATE,     AND    VERIFIES    THE  ** 

**  EXISTENCE     CF    AN    ITEM    MANAGER    RECORD.       ACCEPTS  ** 

**  UPDATE    INFORMATION    ON    COG-ITEM    MANAGER     ASSIGN-  ** 

**  MENTS,    VALIDATES    THE    EXISTENCE    OF    AN    ITEM  ** 

**  MANAGER    RECORD,    ANE    UPDATES    THE    COG    FILE.  ** 

**  PREVIOUSLY    DELETED    COGS    MAY    BE    REACTIVATED  ** 

**  WITH    THE    UEDATE    OPTION.       ACCEPTS    THE   COG    TO  ** 

**  EE   DELETED,    VERIFIES    THE    RECORDS    EXISTENCE,  ** 

**  AND    VERIFIES    THAT     NO    ACTIVE    CASES    EXIST    FOR  ** 

**  THIS    COG.  ** 

**  ** 

**  SUPERORDINATE    MODULES:     UTILMENU  ** 

**  SUBORDINATE     MODUIES:    NONE  ** 

**  AUTHOR:    R.     G.    NICHOLS  ** 

**  ** 

******$*********  **  ***************************************** 

*  COGUEDT. PRG 

*  LAST    UPDATE    18    JAN    64 

STORE    T    TO    G:CONTINUE 
DO    WHILE    G:CONTINUE 

*****       DISPIAY    OETIONS    AND     ACCEPT    CHOICE 

ERASE 

9    6,24    SAY    ******    COG    FILE    EEOCESSING    ****** 

a    9.28    SAY    •  1    -    ADE    COG' 

a)     10,28    SAY     '2   -     UEDATE    COG' 

a     11,28    SAY     '3    -    DELETE    COG' 

a     12,28    SAY     '4    -     RETURN    TO    UTILITY    MENU' 

STORE    '     »    TO    G:REELY 

3     15,40    GET    G:REPLY 

READ 

DO    WHILE    G:RE?LY    <    M«     .OR.    G:REPLY    >    '4» 

a    23,32    SAY    'ENTER    1     -    4    ONLY1     +    CHR  (7) 

a  15, 40  GET  G: REPLY 

READ 
ENEDO 
DO  CASE 

*****       If    CHOICE    IS    TO    QUIT,    RELEASE    LOCAL    MEMORY    VARIAELES 
*****       AND    BETURN   TO    CALLING    PROGRAM 

CASE    G:REPLY    =    '4' 

RELEASE    ALL    IIKE   G :* 

197 


***** 


RETURN 
IF  CHOICE 


IS  TC  ADD,  PROMPT  FOR  AND  ACCEPT 


X  iN 


fjT 


***** 


***** 


CASE    G:REPLY 

=    Mi 

STCRE     • 

« 

TO 

G:IM 

STCEE     ■ 

t 

TC    G 

:COG 

ERASE 

3    6,24 

SAY 

'ENTEI 

DATA 

FOR 

COG 

3    9.32 

READ 

SAY 

•COG 

i 

GET 

STCRE     ! 

(G: 

CCG)     ' 

ro 

G:COG 

SELECT 

PRIMARY 

BEING    ADDED' 
G:COG    PICTURE    '  9A  ' 


CHECK   FOR    DOPIICATE     RECORD 

USE   D: COG    INEEX    D: COGS 
FIND    5G:COG 
IF    #    <>    0 

3    22,14     SAY    'RECORD    CURRENTLY    EXISTS     •; 

+     •-    STRIKE    ANY    KEY    TO    CONTINUED    CHR  (7) 

WAIT 
ELSE 

STORE    T     TC    G:GETIM 

DO    WHILE    G:GETIM 


PROMPT    FOR    AND    ACCEPT    ITEM    MANAGER 

3    10,32    SAY     'ITEM    MANAGER    ' 

SELECT    SECONDARY 

USE    D:ADDRESS    INDEX    D: IM 

READ 

STORE    !  (G:IM)     TC    G:IM 

*****   CHECK  TO  SEE  IF  IM  RECORD  EXISTS 

FIND    SG:IM 
IF    #     <>    0 

STCRE    F    TC    G:GETIM 

SELECT    PRIMARY 

APPEND    BLANK 

REELACE    COG    WITH    G:COG, 
ELSE 


GET    G:IM 


IM    WITH    G:IM 


*****       IF    ITEM    MANAGER    NOT     ON    FILE    PROVIDE    OPTION    TO 
*****       CORRECT    IM    CODE,    ADD    THE    IM    RECORD    OR    EXIT    WITHOUT 
*****       UPDATE 

3     16,27    SAY    •ITEM    MANAGER    NOT    ON    FILE' 

3     18,30    SAY    '1    -    CHANGE    I.M.    CODE' 

3     19,30    SAY     '2    -    ADD    ITEM    MANAGER' 

3    20,30    SAY    '3    -    EXIT'     ♦    CHR(7) 

STCRE    «     •     TO    G:REPLY2 

3     23,40    GET    G:REPLY2    PICTURE    '9' 

REAL 

DO    WHILE    G:REPLY2<«1'     .OR.     G:REPLY2>'3« 

2    23,40    GET    G:REPLY2 

READ 


ENEEO 
DO  CASE 

CASE  G  :REPLY2  = 
3  16,27  SAY 
+ 
3  1 8,30  SAY 
3  19,30  SAY 
3  20,30  SAY 
3  23,40  SAY 
CASE  G :REPLY2  = 
STORE    F    TO    G 


1  • 


■ 

•2« 

GETIM 
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STOBE     • 

TO    G:IITLE 
STORE 


STORE 

STORE 

+ 

STORE 
STOEE 

STORE 


G:TITLE 


TO 
TO 


G: STREET 


TO    G: COMMAND 
i     v  c  • 


TO    G:COaMAND2" 

•    TO    G:ATTN 
t 
< 

t 


I 


STORE 

STORE 

a)    16,27    SAY 

+    • 

a)  18,30  SAY 
a)  1  9,30  SAY 
a)  2  0,30  SAY 
a)  23,40  SAY 
a)  1  U,  16  SAY 
a)    15,16    SAY 

i 
a)    16,16    SAY 

i 
a)    17,16    SAY 

l 
a)    18,16    SAY 

l 
a)    19,16    SAY 
a)    19,44    SAY 
a)    1  9,56    SAY 


CITY 

TO    G: STATE 
TO    G:ZIP 


'     GET    G 
•     GET     ; 

'     GET    ; 

'     GET    ; 

1     GET    ; 

TITLE 


TITLE 

COMMAND 

COMMAND 

COMMAND 

COMMAND2 

ATTN 

ATTN 

STREET 

STREET 

CITY     ■    GET    G:CITY 

STATE    «     GET    G: STATE 
ZIP    CODE    •     GET    G:ZIP; 
PICTURE    '99999' 


READ 
*****       ACCEPT    NEW    IM    TATA    AND    PROMPT    FOR    CREATE/EXIT    OPTION 

a)    21,20    SAY    '1    -    POST    NEW    RECORD'; 

+    '  2    -    EXIT' 

STORE     ■     •    TO    G:REPLY3 
a)    23,40    GET    G:REPLY3    PICTURE    '9' 
READ 

DO    WHILE    G:REPLY3    <    «1«     .OR.; 
G:REPLY3    >    '2« 

a)    23,40    GET    G:REPLY3 

READ 
END  DO 

*****       CREATE    A    NEW    RECORD 

IF    G:REPLY3    =    ' 1' 
SELECT    PRIMARY 
APPEND    BLANK 
REPLACE    COG    WITH    G:COG,; 

IM    WITH    G:IM 
SELECT    SECONDARY 
APPEND    BLANK 

REPLACE    IM    WITH     !  (G: I M)  .TIT  IE; 
WITH     !  (G:TITLE)  , COMMAND    WITH    !  (G:COM MAND)  , COMMAND2    WITH; 
!  (G:CCMMAND2)  , ATTN     WITH    !  (G: ATTN)  , STREET    WITH    !  (G : STREET) , ; 
CITY    WITH     !  (G:CITY)  ,     ZIP    WITH    G:  ZIP 

ELS  E 

STORE    F    TO    G:GETIM 
ENDIF 

*****       EXii    WITHOUT    CREATING    RECORD 

CASE    G  :REPLY2    =    '3« 
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STORE    F    TO    GtGETIM 
ENECASE 
END  IF 
ENDDO 
EHDIF 


*****       aj    CHOICE    IS 

CASE    G:REPLY 
STCRE     ' 
STORE     ■        • 


IC 


UPDATE 


=    »2« 

•    TO     G 
TC    G:COG 


IM 


FOR    AND    ACCEPT    COG    BEING    UPDATED 

DATS 


ERASE 

a  6,24 

a    9,32 

READ 


SAY 
SAY 


•ENTER 
'COG 


FOR    COG    BEING    UPDATED' 

•     GET    G:COG    PICTURE    • 9A • 


STCRE     !(G:CCG)     TO 
SELECT     ERIHABY 


G:COG 


*****       RETREIVE     RECORD    TO    BE    UPDATED 

USE    D:COG    INDEX    D: COGS 
FIND    &G:COG 
IF    #    =    0 

3    22,17    SAY    'RECORD    NOT    FOUND    '; 

♦     ■ -    STRIKE    ANY    KEY    TO    CONTINUE' 
WAIT 
ELSE 

STORE    T     IC    GtPROCESS 


+  CHE  (7) 


*****   IF  RECORD  DELETED  PROMPT  FOR  REACTIVATION 

IF    * 

STORE     '     '    TO    G:REPLY3 

3    18, '22    SAY     'RECORD    HAS    BEEN    MARKED    FOR'; 

+     '     DELETION    ' 
3    19,19    SAY     'DO    YOU    WANT    THIS    COG     '; 

♦     'REACTIVATED    <Y    OR    N> ' 
S    21,40    GET    G:REPLY3    PICTURE    'A' 
READ 

DC    WHILE    !(G:REPLY3)     <>    'Y'     .AND.     !(G:REPLY3) 
a    23,31    SAY    'ENTER    Y    OR    N    ONLY'     +    CHR  (7) 
a    21,40    GET    G:REPLY3    PICTURE    'A' 
RE2E 
ENDDO 

*****       REACTIVATE    RECCRD   IF    REQUESTED 

IF    !  (G:REPLY3)     =    •  Y 
a     18,22    SAY 

+ 

a     19,  19    SAY 

+ 

a    21.40    SAY 
RECALL 
ELSE 

STCRE    F    TC    G:PROCESS 
ENDIF 
ENDIF 

DO    WHILE    G:PROCESS 
STORE    IM    TO    G:IM 


O 


N' 


*****       PBCMPT    FOR    AND    ACCEPT    UPDATE    INFORMATION 

'ITEM    MANAGER    •     GET    IM 

POST    UPDATE    INFORMATION'; 


a    10,32    SAY 

READ 

a    21 ,20    SAY     '  1    - 
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♦     •  2    -    EXIT' 

STORE     »     '    TO    G:FEPLY3 
S    23,40    GET    G:ZZ?LI3    PICTURE    '3' 


*****       ACCEPT    UPDATE/EXIT    SELECTION 

READ 

DC    WHILE    G:REPLY3    <    ■  1  • 

3     23,40    GET    G:REPLY3 

REAE 
ENDDO 


OR.  G-.REPLY3  >  '2' 


***** 
***** 


IF  EXIT  WITHOUT  UPDATE,  RESTORE  RECORD  TO  ORIGINAL 
VALUE 


IF   G : EEPLY3    <>    • 1« 

REPLACE   IM    WITH    G 
ENDIF 
USE 

STORE    F    TO   G  :PROCESS 
ENDDO 
ENCIF 


IM 


*****       u    CHOICE    IS    TC    DELETE 

CASE    G:REPLY    =     '3' 

STORE     •  '     TO    G. 

STCRE     ■        •     TC    G:COG 


IM 


*****   PROMPT  FOR  AND  ACCEPT  COG  BEING  DELETED 

ER  ASE 

3    6,28     SAY     'ENTER    COG    BEING    DELETED' 
5)    9,32    SAY     'COG  •     GET    G:  COG    PICTURE    '  9A  ' 

•READ 

STCRE     !   (G:CCG)     TO     G:COG 
SELECT     PRIMAFY 
USE    D:CCG    IKIEX    D: COGS 

*****       VERIFY    COGS    EXISTENCE 

FIND    5G:COG 
IF    #    =    0 

a    22,17    SAY    'RECORD    NOT    FOUND    • ; 

♦     ■-    STRIKE    ANY    KEY    TO    CONTINUE'     +    CHR  (7) 

WAIT 
ELSE 

*****       VERIFY   THAT    NC    ACTIVE    CASES    ARE    ASSIGNED    TO    THIS    COG 


IF    COUNT    >    0 
3    10,32    SAY 
a    13,25    SAY 
a    14,  15    SAY 

+ 

a    15,21    SAY 

+ 
a    18,27    SAY 

+ 

WAIT 
ELSE 


'ITEM    MANAGER    «     +    IM 

'ACTIVE    CASES    EXIST    FOR    THIS    COG' 

•ALL    ACTIVE    CASES    MUST    BE    •; 

•REASSIGNED  TO  ANOTHER  COG' 

•BEFORE  DELETE  ACTION  CAN  BE  '; 

'COMPLETED' 

•STBIKE  ANY  KEY  TO  CONTINUE'  ; 

CHR  (7) 


***** 


NOTIFY  OPERATCE  THAT  RECORD  PREVIOUSLY  DELETED 

IF    * 

3    23,13    SAY    'RECORD    PREVIOUSLY    DELETED    - 
♦     'STRIKE    ANY    KEY    TO    CONTINUE' 

WAIT 
ELSE 
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a     10,32    SAY    'ITEM    MANAGER    •     +    IM 
3    17,20    SAY    M    -    DELETE    THIS    COG'; 

+    «  2    -    EXIT' 

STCFE    '     '     TO    G; REPLY 3 
3     19, "0    GET    G:REPLY3    PICTURE    '9' 


*****       ACCEPT    DELETE/EXIT    SELECTION 


ENEC 
USE 
ENDDC 


EN 
ENDIF 
ASE 


READ 

DO    WHILE    G:REPLY3    <    '1'     .OR.    G: REPLY3    >    '2' 

3    23,32    SAY    'ENTER    1    -    2    ONLY'     +    CHR  (7) 

3    19,40    GET    G:  REPLY3 

BEAD 
ENEEO 
IF    G:REPLY3    =    '  1« 

DELETE 

USE 
ENEIF 
ENDIF 
DIF 


*****    ENE    0F    PROGRAM 
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XXII.    DATA     BASE    PACK    MODULE 


**** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

**** 


***********************  ********************** 

DATE:     15  JAN    1984 
VERSION:    1.0 
MCDULE    NAME:     DBPACK 
MCDUIE    PURPOSE:     PACK    TH 

RECORDS 


E    DATA    BASE    AND    HEMOV: 
TAGGED    FOR    DELETION 


MCDULE    INTERFACE    DEFINITION 
INPUTS:    C:WHO 
OUTPUTS:     NONE 


MCCULE  PROCESSING  NARRA 
COMPRESSES  THE  DA 
MARKED  FOR  DELETI 
USERS  PASSWCRD  IS 
IS    AUTHORIZED    TO 

SUPEFOREINATE    MODULES: 
SUBORDINATE     MODULES:    NO 
AUTHCR:    R.     G.     NICHOLS 


TIVE    DESCRIPTION: 
TA    EASES     BY    REMOVING    R 
ON.       PRIOR    TO    EXECUTIO 
VERIFIED    TO    ENSURE   TH 
PERFORM    THE    PACK. 

UTILMENU 

NE 


********************************************* 


********** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
*& 
** 
** 
** 
** 
** 
** 
** 
** 
********** 


ECORDS 
N,  THE 
AT  HE 


*****       DISPLAY    WARNING    MESSAGE 


ERASE 


1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

17 

18 

19 


25 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 


store"    ■ 

3    21,40 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

•     TC 

GET    P 


^*  3fr    Jjfc  *f»    ^ 
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WARNING 
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LA 
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:REPL 
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NDEX    THE    FILES 


G  FILES 
S  COULD 
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ARE 
TAKE 


****** 

URE    YOU    WANT 

NTINUE' 

R    Y    OR    N>«     + 


*     * 

TO' 


CHR  (7) 


*****       ACCEPT    RESPONSE    FROM    USER 


READ 

DO    WHILE 


3    23,32    SAY 
a    21  ,40    GET 

READ 


!  (P:REPLY2)<>« Y 


ENTER    Y 
P:REPLY2 


•     .AND.     ! 

OR    N    ONLY'     - 

PICTURE    ■  A' 


(P:REPLY2) 
CHR  (7) 


<>'  N« 


ENDDO 
2    23,32 
a)    17,40 


SAY 
SAY 


*****    ACCEPT    AND    VERIFY    PASSWORD    PRIOR    TO    EXECUTION 
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IE    P*  R E PL Y  2    =    'Y' 

3*21,30    SAY    'ENTEB    YOUR    PASSWORD    • 

STORE    '  '     TO    P:PASSWORD 

SET    CONS C IE    OFF 

ACCEPT    TC    P: PAS  SWORD 

SET    CONSCIE    ON 

IF    ?:P  AS  SWORD    <>    '  ' 

USE    D:TECHCODE    INDEX    DMECH 

FIND    5C:WHO 

IF    PSKE    =    P:EASSWORD    .AND.     #    <>    0 

*****       DISPLAY    PROCESSING    MESSAGE 

ER  ASE 

0^6,26    SAY    '     OPEN    DATA    BASE    BEING    PURGED' 
5)    8,32    SAY    'OF    CLOSED    CASES' 

a)     16,29    SAY     ******    DO    NOT    INTERRUPT    *****' 
USE    D:OPEN1     INDEX    D:OCASE1,     D:ONSN 
PACK 

USE    D:OPSN2    INDEX    D:OCASE2 
PACK 
ELSE 

a)     23,18   SAY    'REQUEST    ABORTED    '; 

+     •-    STRIKE    ANY    KEY    TO    CONTINUE' 
WAIT 
ENDIF 
ENDIF 
ENDIF 
USE 

RELEASE    ALL    IIKE    P:* 
RETURN 

*****    ENE    OF    PROGRAM 
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XZIII.  ANALYST  FILE  UPDATE  MODULE 


*********************************************************** 


** 


'* 


**  DATE:    1  5   JAN    198a  ** 

**  VERSION:    1.0  ** 

**  MODULE    NAME:    ANALYST  ** 

**  MODULE    PURPOSE:     TC    ADD,  UPCATE,    DELETE,     AND    LIST               ** 

**  ANALYST     INFORMATION  ** 

**  ** 

**  MCCUIE    INTERFACE    DEFINITION  ** 

**               INPUTS:     NONE  ** 

**               OUTPUTS:     NONE  ** 

**  ** 

**       MCEULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  PROVIDE    CAPABILITY    TC    ADD    NEW     ANALYST    CODES,  ** 

**  UPDATE    EXISTING    ANALYST    RECORDS,    DELETE  ** 

**  ANALYST    RECORDS,     CR    DISPLAY    ANALYST    RECORDS.  ** 

**  NEW    ANALYST    IDS    ARE    VALIDATED    TO    ENSURE     THAT  ** 

**  DUPLICATE    RECORDS     ARE    NOT    CREATED    AND    THAT    NO  ** 

**  EMBEDDED     BLANKS    APPEAR    IN    THE    ID.       DELETED  ** 

**  ANALYST    RECORDS    MAY    EE    RECALLED    BY    UPDATING  ** 

**  TF.E    RECORD.       PRIOR    TO    DELETION    OF    A    RECORD,  ** 

**  THE    ANALYST    IS    VERIFIED    TO    HAVE    NO    ACTIVE  ** 

**  CASES    ASSIGNED.  ** 

**  ** 

**  SUPERORDINATE    MODULES:     UTILMENU  ** 

**  SUEORDINATE     MODULES:    NONE  ** 

**  AUTHCR:    R.     G.    NICHOLS  ** 

**  ** 

****************  **  *  ********    ******************************** 

STORE    T    TO    A:CONTINUE 
DO    WHILE    A:CONTINUE 

*****       DISPLAY    OPTIONS    AVAILABLE    TO    THE    USER    AND    ACCEPT 
*****       SELECTION 

ERASE 

a    6,25    SAY    »     *****    ANALYST    FILE    UPDATE    ****** 

3    9,28    SAY    M    -    ADD    ANALYST' 

3     10,28    SAY     '2   -     UPDATE    ANALYST' 

3     11,28    SAY     '3    -    DELETE    ANALYST' 

a     12,28    SAY    '4   -    LIST    ANALYST' 

a     13,28    SAY     '5    -    RETURN    TO    UTILITY    MENU' 

STCRE    '     '    TO    A:REPLY 

a     16, 40    GET    A:REPLY    PICTURE    '9« 

READ 

*****    VALIDATE    SELECTION 

DO    WHILE    A:REPLY    <    M'     .OR.    A:REPLY    >    »5« 
3    23,32    SAY    'ENTER    1     -    5    ONLY'     +    CHR(7) 
a     16,40    GET    A:REPLY    PICTURE    '9' 
READ 

ENDDO 

DC    CASE 

*****       n    qOIT     REQUEST,    RELEASE    LOCAL    MEMORY    VARIABLES    AND 
*****       EETUEN    TO    CALLING    PROGRAM 

CASE    A:REPLY    =    '5' 

RELEASE    ALL    LIKE    A :* 

205 


RETURN 
*****       IF    ADD    jjES    ANALYST    SELECTED 

CASE    ft:REPLY    =    M' 

ST CHE     '  '    TO    A:TSCHC0D2 

STORE     •  '     TO    A:PASSWOED 

STCRE     •  '     TO    A:NAME 

*****       CLEAP    SCREEN     AND    PROMPT    FOR    NEW    ANALYST    INFORMATION 

ERASE 

3    6,22     SAY     'ENTER    DATA     FOR    ANALYST    BEING     ADDED' 

a    7.22    SAY     ■  FOLLOW    EACH    ENTRY    WITH    A    <CR>» 

a     10,28    SAY     'ANALYST    CODE  '     GET     A:TECHCODE 

READ 

*****   VALIDATE  NO  EEEEDDED  ELANKS 

DO    WHILE    $  (A:TECHCODE,1  .  1)  =•     •     .OR.; 

$(A: TECHCCDE,2, 1) ='     •     .OR.    $ ( A : TECHCO DEr 3, 1 ) ; 

=  '     '     .OR.    $  (A:TECHCODE,4,  1)  =•     • 

3    23,23    SAY    'ANALYST    CODE    CANNOT    CONTAIN'; 
+     •     BLANKS'     +    CHR(7) 

a    10,45    GET    A:TECHCODE 

READ 
EN  EDO 

3    23,23    SAY    •  » 

STORE     !   (A:TECHCODE)     TO    A:TECHCODE 

*****       VALIDATE     FOR    DUPLICATE    USER    ID 

USE   D:TECHCCEE    INDEX    D:TECH 
FIND    SArTECHCODE 
IF    #    <>    0 

9    22,14    SAY    'RECORD    CURRENTLY    EXISTS     '; 

+     •-    STRIKE    ANY    KEY    TO    CONTINUE' 

WAIT 
EL  SE 

3    12,28    SAY    'ANALYST    NAME  •    GET    A:  NAME 

READ 

SET    CONSOLE    OFF 

STORE    T    TC    A:ENTERESW 

*****       F5CMPT    FOR    USER    PASSWORD    AND    VERIFICATION    OF    THE 
*****       PASSWORD 

a    14,28    SAY    'PASSWORD  ' 

DO    WHILE    A:ENTERPSW 

a   14,4a  say    •    • 

ACCEPT    TO    A:  PASSWORD 

STORE     '  '     TO    A:  VERIFY 

a    16,28    SAY     'VERIFY    PASSWORD    ' 

ACCEPT    TO    A:  VERIFY 

IF    A:EASSWORD    <>    A:VERIFY 

a     23,5    SAY    'VERIFICATION    PASSWORD    DOES    ': 
♦     'NOT    MATCH    -    REENTER    PASSWORD' 
+    '     AND    RSVERIFY'     +    CHR(7) 
STCEE     '  '     TO    ArPASSWORD 

ELSE 

STCFE    F    TC    A:ENTSRPSW 
ENDIF 
ENDDO 
SET    CONSCLE    ON 

*****       CREATE    THE    NEW    ANALYST    RECORD 

APPEND    BLANK 

REPLACE    TECHCODE    WITH    !  (A:TECHCODE)  ,     NAME    WITH; 
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!(A:NAHE),    FSWD    WITH    A:?ASSWQRD 

USE 
ENEIF 

*****       if    UPDATE    ANAIYST    SELECTED 

CASE    A:REPLY    =    '2' 

STCRE     '  '     TO    A:NAME 

STCRE    •  •    TO    A:  TECHCODE 

*****       EFCMFT    FOR    AND    ACCEPT    ANALYST    CODE 

ERASE 

5)    6,15     SAY     'ENTER    ANALYST    CODS    FOR    RECORD    TO    5E»: 

+     •     UPDATED     ■     GET    A:TECHCODE 
READ 
STCRE     !  (AiTECHCODE)     TO    A:TECHCODS 

*****       VALIDATE    CODES    EXISTENCE 

USE    DtTECHCOCE    INDEX    D:TECH 
FIND    &A:TECHCODE 
IF    #    =    0 

a    22,17    SAY    'RECORD    NOT    FOUND    •; 

♦    •-     STRIKE    ANY    KEY    TO    CONTINUE' 

WAIT 
ELSE 

STORE    T    TC    A:PRCCESS 

*****       jp    MARKED    FOR    DELETION,    SEE    IF    RECORD    SHOULD    BE 
*****       REACTIVATED 

IF    * 

STORE     '     '    TO    A:FEPLY2 

5)    18,22    SAY     'RECORD    HAS    BEEN    MARKED    FOR'; 

♦  '    DELETION' 

3    19,18    SAY     'DC    YOU    WANT    THIS    ANALYST    '; 

♦  'REACTIVATED    <Y    OR    N>' 
3    21,40    GET     A:REPLY2    PICTURE    'A' 
READ 

DO    WHILE    A:REPLY2<>'Y'     .AND.    A:RE?LY2<>'N' 
a     22,31    SAY    'ENTER    Y    OR    N    ONLY'     ♦    CHR  (7) 
S    21,40   GET    A:REPLY2    PICTURE    'A' 
REAL 

ENDDO 

IF    !  (A:REPLY2)     =    'Y' 
RECALL 

a     18,22    S  AY    »  •; 

+    '  « 

3    19,18    S  AY    •  '; 

+    i  • 

a    21,40    S  AY    •     • 
ELSE 

STCEE    FTC    A  .'PROCESS 
ENDIF 
ENDIF 

*****       PROMPT    FOR    AND    ACCEPT    UPDATE    INFORMATION 

DO    WHILE    A:PROCESS 

STORE    NAME    TO    A:NAME 

a    8,15    SAY    'ENTER    NEW    NAME    DATA      '     GET    NAME 

READ 

a    21,20    SAY     '1    -    POST    UPDATE    INFORMATION'; 

♦    •  2    -    EXIT' 

STORE     '    •    TO    A:BEPLY2 
a    23,40    GET    A:REPLY2    PICTURE    '9' 
*****       ACCEPT    UPDATE/EXIT    OPTION    SELECTION 


207 


READ 

DC    WHILE    &:REPLY2    <    '1'     .OR.    A:REPLY2 
■3     23,40   GET    A:REPLY2    PICTURE    '9' 
READ 
ENDDO 
IF    A:  FEPLY2    =    '  1' 

REEIACE    NAME    WITH    !  (NAME) 
ELSE 

REPLACE    NAME    WITH    A: NAME 
ENDIF 

STORE    F    TO    A  '.PROCESS 
ENDDO 
USE 
ENDIF 
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*****       Ij    DELETE    OPTICN    SELECTED 

CASE    AiREPLY    =     »3« 
STORE     ' 
STCRE     '  •    TO    A:TECHCODE 


•    TO    A: NAME 


*****       PEOMPT    FOR    AND    ACCEPT    ANALYST    CODE 

ERASE 

2    6,15    SAY     'ENTER     ANALYST    CODE    FOR    RECORD    TC    EE    DELETED     ' 

GET     A:TECHCOEE 
READ 

STCRE     !   (A:TECHCODE)     TO    A:TECHCODE 
USE   D:TECHCCDE    INDEX    D:TECH 
FIND    &A:TECHCODE 
IF    #    =    0 

5)    22,17    SAY    'RECORD    NOT    FOUND    -    STRIKE    ANY    KEY'; 
+     •    TC    CONTINUE' 

WAIT 
ELSE 


*****       CHECK    FOR    ACTIVE    RECORDS    ASSIGNED 


IF    ACTIVEX)    .OR 
a)      9,21    SAY 

3    10,21    SAY 

+ 

a)    11,21    SAY 

WAIT 
ELSE 


TRANSMIT>0     .OR.     RESPOND>0 
ACTIVE    RECORDS    EXIST    FOR     '; 
THIS    ANALYST' 
ALL    ACTIVE    RECORDS    MUST    BE'  ; 

REASSIGNED' 

PRIOR    TO    DELETION' 


*****       INDICATE     IF    RECORD    PREVIOUSLY    DELETED 

IF  * 

a)  23,13  SAY  'RECORD  PREVIOUSLY  DELETED  '; 
+  •-  STRIKE  ANY  KEY  TO  CONTINUE' 

WAIT 
ELSE 

*****       FEOVIDE    OPTION    TO    DELETE    OR    EXIT 


5)    8,32    SAY    'ANALYST    '     ♦    NAME 

5)     17,20    SAY    '1     -    DELETE    THIS    ANALYST 

+i  2    -    EXIT' 

STCEE    *     '     TO    A:REPLY2 
3     23, 40   GET    A:REPLY2    PICTURE    '9' 
READ 
DO    WHILE     A:REPLY2    <    '1'     .OR.    A:REPLY2 

3    23,40    GET    A:REPLY2    PICTURE    '9' 

READ 
ENDDO 
IF    A:REPLY2    =    •  1' 

DELETE 


>    '2' 
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ENEIF 

END  If 
ENDIF 
ENDIF 

*****       Ij    LIST    OPTION 

CASE    A:REPLY    =     »4' 

USE   D;TECHCCEE    INDEX    D:TECH 

SET   DELETED    CN 

ER  ASE 

DISPLAY    ALL    HELD    TECHCODE,     NAME    OFF 

a 

?     '  STRIKE    ANY    KEY    TO    CONTINUE' 

SET   DELETED    CFF 
WAIT 
ENCCASE 
ENDDC 

*****    ENE    OF   PROGRAM 
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XXIV.     PASSWORD    FILE    UPDATE    MODULE 


****************************#****:$:**##:$:***  ******##*#*#*#:}:** 
**  ** 

**       DATE:    15   JAN    1984  ** 

**       VERSION:    1.0  ** 

**       MODULE    NAME:    PASS  ** 

**       MCDUIE    PURPOSE:     EiSSWOfiE    UPDATING  ** 

*  *  t-  A 

**  MODUIE    INTERFACE  DEFINITION                                                                       ** 

**               INPUTS:     NONE  ** 

**               OUTPUTS:     NONE  ** 

#$  ** 

**       MODUIE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ACCEPTS    THE    USER     ID    AS    INPUT,     REQUESTS    THE  ** 

**  CURRENT    PASSWORD,     VALIDATES    IT,     AND    REQUESTS  ** 

**  THE    ENTRY     AND    VALIDATION    OF    THE    NEW    PASSWORD.  ** 

**  AN   ILLEGAL    USER    IC    OB    AN    ILLEGAL    PASSWORD    WILL  ** 

**  CAUSE    THE    PASSWORD    UPDATE    TO    TERMINATE.  ** 

**  *# 

**  SUPERORDINATE    MODULES:     UTILMENU  ** 

**  SUECRDINATE     MODULES:    NONE  ** 

**  AUTHCR:     R.     G.     NICHOLS  ** 

**  ** 

**$***$*$*******  $*  -<t:*^*3)t^*^*   ^3}:*^£*^:^^;^3X*^5ic4:^:3)c^c*  ^*  *  ***#*£*:&#** 

*****       CLEAR   SCREEN    AND    PROMPT    FOR    USER    ID 

ERASE 

STORE    ■  •    TO    P:PASSWORD 

STORE    '  '    TO     P:TECHCODE 

d   6,21    SAY  ******    PASSWORD    UPDATE    PROCESSING    ****** 

5)    9,24    SAY  'ENTER    DESIRED    ANALYST    CODS       ■     GET    P:TECHCCDE 

*****       ACCEPT    AND    VALIDATE    USER    ID 

READ 

STORE     !  (P:TECHCODE)     TC    P:TECHCODE 

USE    D:TECHCCDE    INDEX    D:TECH 

FIND    SP:TECHCODE 

IF    #    =    0 

a     22,14    SAY     'RECORD    DOES    NOT    EXIST    •; 

+     ■-    STRIKE    ANY    KEY    TO    CONTINUE ' +C HR  (7 ) 

WAIT 
ELSE 

SET    CCNSCLE    OFF 

SET    EXACT   ON 

*****       ACCEPT    AND    VALIDATE    PASSWORD 

3     11,24    SAY     'ENTER    CURRENT    PASSWORD    • 

ACCEPT       TO    P: PASSKCRD 

IF    P:PASSWORD    =    ■  • 

SET    CONSOLE   ON 

RELEASE    ALL    LIKE    P:* 

RETURN 
ENEIF 

STORE    P:PASSWORD+«  '    TO    P:PASSWORD 

IF    $  (PiPASSWOED,  1  .8)     <>     PSWD 

3    22,8    SAY    "INVALID    PASSWORD    FOR    ANALYST    ' +P : T ECHCO DE ; 
+    •     -    STRIKE    ANY    KEY    TO    CONTINUE'     +    CHR(7) 

WAIT 
ELSE 
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STCRE    T    TO    PrGETPASWD 
*****       ACCEPT    NEW    PASSWORD     AND    VALIDATION    OF    NEW     PASSWORD 

DC    WHILE    P:GETEfiSSD 

a)     13,24    SAY     'ENTER     NEW    PASSWORD  ■ 

ACCEPT    TO    P:EASSWORD 

9     15,24    SAY     'VERIFY    NES    PASSWORD  ' 

ACCEPT    TO    P:VERIFYPW 

IF    Pi  PASSWORD    O    PiVERIFYPW 

of  23,5    SAY    'VERIFICATION    PASSWORD    DOES    NOT    MATCH'; 

+    '       -     REENTER    PASSWORD    AND    REVSRIFY'    +     CHR(7) 
ELSE 

STORE    F    IC    ?:GEIPASWD 
ENDIF 
ENEDO 

REEIACE    PSWD    WITH    P:PASSWORD 
USE 
ENDIF 

SET    EXACT   OFF 
SET    CCNSCLE    ON 
ENDIF 

*****       RELEASE    LOCAL    MEMORY    VARIABLES    AND    RETURN    TO 
*****       CALLING    PROGRAM 

RELEASE    ALL    LIKE    P:* 
RETURN 

*****    OE    CF    PROGRAM 
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XXV.     EATA    3&S2    HE-INDEX    MODULE 


***************************  **************************** **** 

**  ** 

**  DATE:     20   JANUARY    1984  ** 

**  VERSION:    1.0  ** 

**  MODULE    NAME:    UTIINDX  ** 

**  MODUIE    PURPOSE:     BE-INDEX    ALL  INDEX    FILES                                      ** 

**  MODUIE    INrERFACE    EEFINITION  ** 

**              INPUTS:    C:WHO,   C:JULIAN  ** 

**               OUTPUTS:     NONE  ** 

**       MODUIE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**  A    UTILILITY    FOR    THE    SUPERVISOR    TO    RECONSTITUTE  ** 

**  THE   INDEX    FILES    WHEN    THE    SYSTEM    DESTROYS    THE  ** 

**  CURRENT    INDEXES.    AFTER    ACCEPTANCE    OF    THE  ** 

**  SUPERVISOR'S    CHOICE    TO    PROCEED,     EACH    INDEX    FILE  ** 

**  IS    DELETED    AND    THEN    REBUILT    USING    THE    DATA    IN  ** 

**  ALL   OF    THE    EATABASE    FILES.       THIS    TAKES    A    LONG  ** 

**  TIKE    TO    PROCESS,    AND    CAN    BE    ACCOMPLISHED    ONLY  ** 

**  WHEN    IT    IS     THE    ONLY    PROGRAM    RUNNING    ON    THE  ** 

**  QDE   SYSTEM.  ** 

**  ** 

**       SUPERORDINATE    MOEULES:     UTILMENU  ** 

**       SUEORDINATE    MODUIES:    NONE  ** 

**       AUTHOR:    J.G.     BOYNTON  ** 

**  ** 

***************************  ******************************** 

*****       DELETE    CURRENT    INDICES 

DELETE  FILE    D:0CASE1.NDX 

DELETE  FILE    D:ONSN.NDX 

DELETE  FILE    D:OCASE2.NDX 

DELETE  FILE    D:CCASE1.NDX 

DELETE  FILE    D:CNSN.NEX 

DELETE  FILE    D:CCASE2.NDX 

*****       BEGIN   REINDEX    OF    FILES 

USE    D:OPEN1 

INDEX    ON    CASE    TO   D:OCASE1 

INDEX    CN    NSN   TO    D:ONSN 

USE    D:OPEN2 

INDEX    ON    CASE    TO    D:OCASE2 

USE    D:CLCSE1 

INDEX    ON    CASE    TO    D:CCASE1 

INDEX    ON    NSN    TO     D:CNSN 

USE    D:CLCSE2 

INDEX    ON    CASE    TO    D:CCASE2 

USE    D:TECHCCDE 

INDEX    ON    TECHCODE    TO    D:TECH 

USE    E:COG 

INDEX    CN    COG   TO     D:COGS 

USE    D:WHEREEIS 

INDEX    CN    COEE    TO    D:DISCODE 
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USE    E:ADCRESS 
INDEX    CN    IK    TO    D :IM 

BETURN 

*****    oc    OF    PROGRAM 
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X27I.    OPEN    CAS2    REPORT 


***********  *******  *********  ******************************** 

**  ** 

**       DATE:    5    JANUARY     1S84  ** 

**       VERSION:    1.0  ** 

**       MCDUIE     SAME:    OCASERPT  ** 

**       MCDUIE    PURPOSE:     EBOVIDE    ANALYST    WITH    LISTING    OF    ALL  ** 

**                                                    CF    HIS     OPEN    CASES    IN    THE    DATA    BASS.  ** 

**       MODULE    INTERFACE    DEFINITION  ** 

**               INPUTS:     C:WHO,    C:JULIAN  ** 

**               OUTPUTS:     NONE  ** 

**       MODULE    PROCESSING    NARRATIVE    DESCRIPTION:  ** 

**  ** 

**                     ALLOWS    THE     ANALYST    TO    CHOOSE    BETWEEN    RECEIVING  ** 

**                     A    LIST    OF    HIS    CURRENTLY    OPEN    CASES    OR    TO    RETURN  ** 

**                     TO    THE     MAIN    PROCESSING    MENU.     THE    PROGRAM    DOES     A  ** 

**                     SEQUENTIAL     SEARCH    OF    IHE    DATA    BASE    TO    IDENTIFY  ** 

**                     THE    APPEOPRIATE    CASES,     AND    LISTS    THEM    TO     EITHEF  ** 

**                     THE   SCREEN    CE    THE    PRINTER.     LIST    SHOULD    NOT    EE  ** 

**                    SENT    TO   THE    ERINTER    IF    ANYONE    ELSE    WILL    BE  ** 

**                     USING    IT    BEFORE    THE    PROCESS    IS    COMPLETED.  ** 

*£  ** 

**       SUPERORCINATE    MODULES:     MSNU1  ** 

**       SUECRDINATE    MODULES:    NONE  ** 

**       AUTHOR:    J.G.     BOYNTON  ** 

**  ** 

*********************************************************** 

EH  AS  E 

STORE    *     ■    TO   V:PRINT 

TEXT 


YCU  MAY  RECEIVE  THE  REPORT  ON  THE  SCREEN  OR 
AT  THE  PRINTER 

1  -    SCREEN 

2  -    PRINTER 

3  -    EXIT 


<    ENTER    YOUR    CHOICE    > 
ENDTEXT 

2    22,35    SAY*    ■     GET    V  :PRINT 
READ 

IF    V: PRINT    =    ' 1 • 
ERASE 

USE    D : CPEN 1 

REPCRT    FORM    OPENCASE    FOR    WHO    =    C:WHO 
?    'PRESS    ANY    KEY    TO    CONTINUE' 
WAIT 


ELSE 


IF    V:PRINT    =    • 2' 
EEASE 
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USE    D:0PEN'1 

SET    PRINT    CS 

REPORT    FORM    OPSNCA5E    FOP.    WHO    =    C:WHO 

EJECT 

SET    PRIiiT    CFF 

?    'PRESS    AKY    KEY    TO    CONTINUE' 

WAIT 
ENDIF 
ENDIF 

RELEASE    V:PRINT 
RETURN 

*****    ENC    CF    PROGRAM 
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